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Előszó 


A COMMODORE kétféle olyan lemezállományt ismer, amelyek elemei (rekordjai) közvet- 
lenül elérhetők. Ezek egymástól a tárolási és a szervezési módban különböznek. Minthogy 
nincs általánosan elfogadott egységes elnevezésük, a továbbiakban átvesszük a COMMO— 
DORE szóhasználatát, és ezeket random, illetve relatív állományoknak fogjuk nevezni. 
Már a korábbi kötetekben is utaltunk rájuk, de akkor részletesen nem tárgyaltuk őket. 
Sorozatunk mostani kötetének célja e hiány pótlása, azaz a random és a relatív állomá- 
nyok használatának alaposabb ismertetése. 

Az állományokkal kapcsolatos lemezkezelő parancsokon kívül programtervezési, adat- 
feldolgozási kérdésekre is kitérünk. Fontosnak tartjuk, hogy az Olvasó elmélyedjen ezek 
tanulmányozásában is, mivel a közvetlen elérésre épülő feldolgozás technikailag igen egy- 
szerűen — noha a COMMODORE esetében kissé körülményesen — valósítható meg. 
A legfőbb nehézséget azonban nem ez, hanem a szervezési, tervezési kérdések jelentik. 


Az állományok használatát, szokásunkhoz híven, működő mintaprogramokkal mutatjuk 
be. Feltételezzük, hogy az Olvasó abban a tekintetben nem kezdő, hogy a sorozat ko- 
rábbi köteteit ismeri, viszont számottevő mikrogépes adatfeldolgozási és állománykeze- 
lési tapasztalatai még nincsenek. Ennek megfelelően a bemutatott példák nem valódi 
adatfeldolgozó programok, hanem a leegyszerűsített változataik. A programok hasznossá- 
gát alárendeltük annak a didaktikai szempontnak, hogy a megtanulandó állománykezelési 
módokat jól és áttekinthetően illusztrálják. 

Javasoljuk, hogy az Olvasó két üres lemezt készítsen elő: egyet a random, egy másikat 
pedig a relatív állományok, illetve az ezeket kezelő programok számára. Igy az állomány- 
kezelési módok kényelmesen kipróbálhatók a különböző keveredésekből, téves törlések- 
ből, felülírásokból származó hibák veszélye nélkül. 

Míg a soros állományok használata nemigen jellemző a COMMODORE-felhasználói kör- 
nyezetre, a random, illetve a relatív állományok már jóval nagyobb szerephez jutnak 
— a kisebb szervezeti egységekben ezekre épülnek a különböző nyilvántartások. 


Budapest, 1986. A szerző 
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A random állományok kezelése 


A random (azaz véletlenszerű) állományszervezési módot az teszi lehetővé, hogy a lemez 
minden egyes blokkja egyértelműen azonosítható egy sávcímmel és egy szektorcímmel, 
így az egyes blokkok tetszőleges sorrendben, közvetlenül elérhetők (1. ábra). 


A COMMODORE lemezkezelő úgy valósítja meg a random állomány rekordjainak közvet- 
len elérését, hogy azokat egy-egy blokkon tárolja. 


Szektorok 


1. ábra. A lemez szervezése 
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Az ilyen állomány rekordjai a lemezen bárhol elhelyezkedhetnek, teljesen össze-vissza, 
látszólag véletlenszerűen. (Innen adódik a random elnevezés. Helytelen az elnevezést az 
elérési módból származtatni, ez ugyanis közvetlen, azaz direkt.) 

E szervezési módnak a közvetlen elérés mellett egy másik előnye, hogy általa az állomá- 
nyok közötti hulladékblokkok is hasznosíthatók a lemezen. 


A RANDOM ÁLLOMÁNY A random állomány rekordjaihoz csak akkor férhetünk hozzá, 
REKORDJAINAK ha ismerjük a tárolási helyüket, vagyis az egyes rekordokat 
ELÉRÉSE tartalmazó blokkok címét, amint azt a 2. ábra mutatja. 


A rekordot úgy visszük fel a lemezre, hogy először keresünk neki egy helyet, azaz kivá- 
lasztunk egy blokkot, s ennek meghatározzuk a címét. 


FIGYELEM! 
Ugyelnünk kell arra, hogy a kiválasztott blokk szabad legyen, vagyis ne tartozzék valamilyen adatállo- 
mányhoz, lemezen tárolt programhoz vagy a tartalomjegyzékhez, illetve a lemeztérképhez. 


A kiválasztott blokkot le kell foglalnunk a random állomány számára, vagyis utasítanunk 
kell a lemezkezelőt, hogy egy ilyen értelmű bejegyzést tegyen a lemeztérképen. A lefog- 
lalt blokkra már felvihetjük az adatrekordunkat. 

Ha egy rekordot kívánunk beolvasni, először meg kell tudnunk, hogy melyik blokkon 
helyezkedik el, tehát meg kell tudnunk a rekordot tartalmazó blokk címét. Ennek isme- 
retében a rekord a blokkról leolvasható. 


FIGYELEM! 
Az olvasás sikertelen lesz, ha a blokk szabad volt, 


A random állomány számára lefoglalt blokk egy utasítással felszabadítható. Így lehet a 
rekordot a lemezről törölni. 


2. ábra. Rekord elérése 


Megjegyezzük, hogy a lemezkezelő nem a rekordokat, hanem a blokkokat kezeli. A ran- 
dom állomány így az általa használt blokkot teljesen lefoglalja, akár kitöltik rekordjai 
a blokkot, akár nem. A lemezkezelő a felírást és az olvasást is pufferen keresztül hajtja 
végre. 

A random állományok kezeléséhez elengedhetetlenül szükséges tehát, hogy a rekord és 
az őt tároló blokk között valamilyen kapcsolatot találjunk vagy létesítsünk. 


A legegyszerűbb, ha ez a kapcsolat közvetlen (3. ábra), azaz ha a rekord azonosítója ép- 
pen a blokkcím. Ilyenkor például a 1215-ös azonosítójú rekord a lemez 12-es sávjának 
15-ös szektorára kerül felvitelkor, és visszaolvasáskor ugyancsak az azonosítóból tudható 
meg, hogy a rekord hol keresendő. Ez a módszer adatszervezési okokból általában ritkán 
alkalmazható. 


Gyakoribb, hogy a rekord és a blokk között közvetett kapcsolatot hozunk létre (4. ábra), 
azaz a blokkcímet a rekord azonosítójából valamilyen algoritmussal állítjuk elő. 


3. ábra. Közvetlen kapcsolat 


[ze] feere — 


4. ábra. Közvetett kapcsolat 
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Ha például numerikus azonosítónk van, azt oszthatjuk 35-tel, illetve 16-tal, és az osztá- 
sok maradéka képezi a sávcímet, illetve a szektorcímet. Ha a rekordazonosító 321-es, 
a blokkcím (6,1) lesz. Az ilyen leképezés azonban csak akkor kényelmes igazán, ha egy- 
értelmű, és garantálva van, hogy a kiszámított blokk nem foglalt. Egy minden tekintetben 
megfelelő, a rekordazonosítóhoz alkalmazkodó leképező eljárást találni egyáltalán nem 
könnyű. 


Ezért egy harmadik lehetőséget választunk, mely szerint a rekordazonosító és a blokkcím 
között semmilyen kapcsolat sincs, viszont külön nyilvántartást vezetünk arról, hogy az 
egyes rekordok a lemezen hová kerültek. Ezt a nyilvántartást indextáblának nevezzük. 
Az indextábla tulajdonképpen a logikai szerkezet és a fizikai elhelyezkedés között terem- 
ti meg a kapcsolatot. 


Megjegyezzük, hogy a soros állományoknál sem feltétlenül folyamatosan, egymást követő 
blokkokban vannak az állomány rekordjai, vagyis az állomány lemezterületének nem kell 
szükségképpen összefüggőnek lennie. Itt azonban az állománykezelő rendszer megteremti 
a leképezést a rekordok között azzal, hogy összeláncolja a blokkokat. A random szerve- 
zés ebből a szempontból alacsonyabb szintű, mint a soros vagy a relatív szervezési mód, 
amelyeknél a leképezés megteremtése nem a programozó dolga. 


Az indextábla tehát a rekordok azonosítóját, valamint az egyes 


Á MÁNY JAgágétb ER ÁJAÉGE A 
A HANGOM rekordokat tároló blokkok sávcímét és szektorcímét tartal- 


KEZELÉSE 
INDEXTÁBLÁVAL mazza. 


Egy rekord felviteléhez a műveletek egész sorát kell végrehajtanunk (5. ábra): 


— Keresünk egy üres helyet az indextáblában. 

— Ha találtunk egyet, oda bejegyezzük a rekord azonosítóját. 

— Véletlenszerűen kiválasztunk egy blokkot a lemezen. 

— Ha ez nem szabad, akkor megkeressük a legközelebbi szabad blokkot. 

— Amikor már van szabad blokkunk, ezt lefoglaljuk a random állomány számára. 
— A rekordazonosító mellé beírjuk az indextáblába a blokkcímet. 

— Betöltjük a rekordot a pufferba. 

— Felírjuk a puffer tartalmát a lefoglalt blokkba. 


Természetesen nem tudjuk a rekordot felírni a lemezre, ha minden blokk foglalt. Hasonló 
a helyzet, ha az indextábla megtelt, bár ilyenkor esetleg a táblaméret megnövelésével még 
segíthetünk magunkon. 


Egy rekord beolvasásakor a következő műveleteket kell elvégezni (6. ábra): 


— Megkeressük a rekord azonosítóját az indextáblában. 
— Ha megtaláltuk, kivesszük onnan a rekord blokkcímét. 
— Az adott című blokkot betöltjük a pufferba. 

— A rekordot kiolvassuk a pufferből. 
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Ha a rekordazonosító nem szerepel az indextáblában, akkor a rekord nincs az állomány- 
ban, nem olvashatjuk be, hiszen nincs blokkcímünk. Téves blokkcím megadásakor viszont 
nem a keresett rekord töltődik be a pufferba. Ha az adott címen lévő blokk szabad, ol- 
vasási hibát kapunk. 


A rekord törlése egyszerűbb (7. ábra) : 


— Megkeressük az azonosítóját az indextáblában. 

— Ha megvan, kivesszük onnan a blokkcímet. 

— Felszabadítjuk az adott blokkot. 

— Töröljük a rekordra vonatkozó bejegyzéseket az indextáblából. 


A rekord szempontjából tulajdonképpen elegendő lenne csak az indextáblából törölni az 
adatokat, hiszen ezután már soha többé nem érhetnénk el az őt tartalmazó blokkot, mi- 
vel nem tudjuk a címét. A lemezterület gazdaságos kihasználása végett nem érdemes a tö- 
rölt rekord blokkját elérhetetlenül ugyan, de foglalt állapotban az állományban hagyni; 
ezért szabadítjuk fel. 

Mindez rendkívül bonyolultnak tűnik, de a COMMODORE-nak külön lemezkezelő pa- 
rancsai vannak a blokk lefoglalására, felszabadítására, a puffer blokkba írására, illetve fel- 
töltésére a blokkból. Sőt a gép megadja, hogy egy lefoglalni kívánt blokk szabad-e, vagy 
már foglalt, és ez utóbbi esetben még azt is közli, hogy melyik a legközelebbi szabad 
blokk. A géptől tehát a blokkok kezeléséhez megfelelő támogatást kapunk. Az index- 
tábla és a rekordok pedig az eddig megismert utasításokkal kezelhetők. 


Azonosito 


7. ábra. Rekord törlése 
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Az indextábla további előnye, hogy használatával a rekordok és az őket tartalmazó blok- 
kok között kölcsönösen egyértelmű kapcsolat létesíthető. 


Tekintsünk egy egyszerű példát. Tároljuk egy random állományban a (vállalati) gépkocsik 
havi menetteljesítményét: 


— rendszám (2 betű és 4 szám), 
— januári menetteljesítmény (legfeljebb 9999 km), 
— februári menetteljesítmény (legfeljebb 9999 km), 


— és így tovább, 


— decemberi menetteljesítmény (legfeljebb 9999 km). 


A rekordot tehát a gépkocsi rendszáma azonosítja. Nyilvántartásunkban tehát a gépkocsik 
adatai a rendszám alapján közvetlenül elérhetők és karbantarthatók lesznek. Ehhez azon- 
ban előbb létre kell hoznunk az indextáblát. 


A A kérdés most az, hogy hol és milyen formá a ű 
KT NDEKTÁBLA f jéssemős gy L ilyen fo ban célszerű az 
LÉTREHOZÁSA indextáblát létrehozni. Ha nincsen sok rekordunk, a legalkal- 
masabb hely az indextábla számára a tár. Ott ugyanis az index- 
tábla könnyen és gyorsan kezelhető. 


INDEXTABFELV 
program 


Bejelentkezik 


Irásra megnyit [/háéeseó 
[2 

Felviszi a kezdő 
adatokat bő 


Befejező 
üzenetet ad 


8. ábra. 
Indextábla létrehozása I. 
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Ha például a programunkat legfeljebb 30 gépkocsi nyilvántartására kell felkészíteni, a tár- 
ban egy-egy 30 elemű tömböt kell lefoglalnunk a rendszámok, a sávcímek és a szektor- 
címek -tárolására. 

Természetesen szükségünk van arra, hogy az indextáblát lemezre kimentsük, hiszen más- 
kor is használni akarjuk. Erre a soros adatállomány teljesen megfelelő. Valahányszor 
szükségünk van az indextáblára, betölthetjük a lemezről a tárba, és ott használhatjuk, 
amíg a programot le nem állítjuk. A feldolgozó programok ekkor úgy működnek, hogy a 
program elején beolvassák az indextáblát a tárba, szükség esetén módosítják, majd leállás 
előtt visszaírják a lemezre. Ha pedig törölni akarjuk a tábla tartalmát, felülírásra való 
megnyitással új indextáblát hozhatunk létre. 

Nézzük meg azt az esetet, amikor egy eddig nem létező, új indextáblát kell létrehoznunk 
(8. ábra — 17. oldal). 

A feltételek: 


— F1: ha a megnyitás sikeres volt, azaz a H hibakód 20; 
— F2: 1-től 30-ig egyesével nő (minthogy legfeljebb 30 gépkocsink lehet). 


Ha az indextábla már létezik, akkor felülírással megsemmisíthetjük, és újat hozhatunk 
létre (9. ábra): 


FELÜLIR 


[dd 


a 


Megkérdezi, Meghagyja az 
hogy lehet-e eredetit 


Felülirásra VA goábra; 
jé; f. p 5 Hibaüzenetetad] Indextábla létrehozása II. 
myegnya A FELÜLÍR 


Ahol: 


— F3: ha a megnyitás azért nem sikerült, mert az állomány már létezik, azaz a H hiba- 
kód - 63; 
— F4: ha az újbóli létrehozásra irányuló kérdésre a V$ válasz — 71". 


Az újonnan létrehozott (üres) indextáblát olyan értékekkel kell feltölteni, amelyek nem 
téveszthetők össze az indextáblába később kerülő bejegyzések egyikével sem. (Ennek 
majd a kereséskor lesz szerepe.) Ezért a létrehozáskor a táblában az összes rendszám he- 
lyére csillagokat írunk, az összes sávcímnek és szektorcímnek pedig az 1-es értéket 
adjuk. 

Megjegyezzük, hogy a létrehozáshoz nincs szükségünk magára az indextáblára, így nem 
is veszünk fel tömböket. Nézzük a programot! 

Az indextáblát létrehozó programunk először bejelentkezik: 


114 PRINT "77" 

111 FRINT 

14 Bed FRIHT V NNENENNANMEERMANK KO ————————]——]—nuxwun 
US FRINT " A IHDESTHELH GEMERALASR Om" 
114 FRINT " d; 
115 FRINT 

128 FRINT 

iízi1 FKINT " sah GEFKÜLSIRR" 

1zz FRIMT 

1538 SszA 


Feltételezi, hogy a tábla még nem létezik, ezért írásra (létrehozásra) nyitja meg számára 
z "INDEXTABLA" lemezállományt. Figyeli azonban a parancscsatorna H hibakódját, 
hogy a e salááazylaó sikeres volt-e: 

1 (d ÁPEN 8 JÁN 5 ," AIHNES "THELR. SEC. MRITE" 

z:3A IMHFUTHISZ.H.HE 

z46 IF HÁZA THEM GÜTÜ 
zat IF HséZz THEM GÜTÜ 


sa ATÓ 214 


4 in 


:11 
318 


Ha azért nem sikerült megnyitnia az állományt, mert az már létezik, akkor a program 
engedélyt kér a gépkezelőtől a tábla törlésére és újbóli létrehozására: 


PRIHT 

FRIHT OO" öz o d IHIESTHELH OM HEHE OH"; 
ERINT " LEMEZEN VHAMI" 

ERINT " 
PRINT :FRINT:FKIMHT 
BEAT" TORÜLJEM ES KEK 
IMHELIT OO" sg eetdsz MRNNNAT 8 
IF VázőöIl" THEM GÜTI 4ik 


n"n 


SZITSEK ILIHT"; 
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Ha nemleges V$ választ kap, akkor nem hozza létre az indextáblát tartalmazó állományt, 
hanem befejezi a futást: 


278 FRIMHT 

ár L PRINT " E LEPEZEN Az ERETETT" s 
372 FRIHT " IHNEZTHELHKH HHREHI." 
ara PF RITT 

szt el (RTTT ÉT ág 


Ha viszont az indextábla újbóli létrehozása mellett döntöttünk, akkor felülírásra nyitja 
meg az "INDEXTABLA" állományt. (Előbb persze lezárja az írásra sikertelenül megnyi- 
tott adatcsatornát.) A parancscsatornát a biztonság kedvéért most is figyeli: 


428 ÜPEM 2.8. 2. "8: INDEXTHELA. SEC MRITE" 
aza IHFUTHIZ.H:.HA 
4348 IF HAxzk THEM GOTŰ 618 


Ha a megnyitás sikertelen volt, a képernyőre írja a parancscsatornáról kapott H hibakó- 
dot és H$ hibaüzenetet: 

sit FKIMHT 

szá FRIMHT " 4 SIKERTELEMH HEGHYITHASZ OM" 

saga FRIMHT : FRIHT H:H$ 


iz d OTET SK 


Ugyanezt teszi, ha az írásra való megnyitáskor a hibát nem az okozta, hogy az állomány 
már létezik a lemezen. 

Sikeres megnyitás esetén — akár írásra, akár felülírásra vonatkozott — felír a lemezre 30 
darab rekordot, mindegyikbe hat csillagból álló rendszámot, valamint a hozzá tartozó 
blokkcímet, amely egységesen az 1-es sáv 1-es szektorát határozza meg: 


FOK 15£ Tf 5 
FETMTHa, "tetek 
FERIMTHZ.1 

3 FRIHTHA. 1 

at HEAT I 


Megjegyezzük, hogy a karbantartás során majd igen nagy hasznát vesszük annak, hogy 
a táblában megadott kezdőcímek a lemez elején vannak. Azért nem az 1-es sáv 0-s szekto- 
rát adtuk meg, mert azt különleges célokra szokás fenntartani. (Például a lemez azonosí- 
tására; jelszók, hozzáférési módok tárolására; stb.) 

Az állomány létrehozása vagy újbóli létrehozása után a program kijelentkezik: 


219 FRIKMT 


311 FRIHT Jő ELMMNEEZEK NEEE mostak 
812 PRINT " d 6 KESZ p ON" 
ala FELNIT új 
214 FERIMT 


NN 
o 


Végül leáll: 

919 CL0SE z 
aza ÜL(ÜZE 153 
aa3 END 


Az indextáblát létrehozó programunkat gépeljük be, mentsük ki a lemezre például 
"INDEXTABFELV" néven, majd próbáljuk ki. 

Ha lefuttatjuk, létrejön az "INDEXTABLA" soros állomány. Erről a lemeztartalom le- 
kérdezése útján megbizonyosodhatunk. 

A felülírást egyszerűen kipróbálhatjuk; indítsuk el a programot másodszor is. Ha most 
a program megkérdezi, hogy: "TOROLJEM ES KESZITSEK UJAT?", akkor adjunk 
igenlő választ. 

Amikor harmadszor is elindítjuk a programot, kipróbálhatjuk, hogy mi történik, ha a 
fenti kérdésre tagadó választ adunk. 


FIGYELEM! 

A programban több helyen szerepelnek képernyőkezelő karakterek. Ilyenek például a 320-as sorban 
az inverz írást bekapcsoló (RVS ON), illetve kikapcsoló (RVS OFF); vagy a 350-es sorban a kurzort 
(CRSR) balra mozgató jelek. Ezek használatát a , OROS LEMEZÁLLOMÁNYOK? c, kötetben már 
tárgyaltuk, Minthogy a következő programjainkban is igen gyakran előfordulnak, emlékeztetőül fel- 
soroljuk begépelésük módját, a hatásukat és a nyomtatásban megjelenő formájukat: 


ésa z CHE 1 " (KUKZÜK BAL FELSÜ S8ARÜKEH 
SZERT s CSEéke Tt Bek 5. EPER TÜRGESE 
va m TETELJIETEVS OM] 0: ATTERES IMYERZ IRASEHB 


"mi sz ETEL SFERES FEET ESET S3eHT E 


8" sz [ŐESKI : ELIEZŐR LE 

"gay z ÉSRTÉTTELÉRSRI : KÜRZÜK FEL 
HL s (6RSR] : ELEZÜR JÜBERH 
jlL jő m ÜST ET JELEKSN : ELEZÜR EHLEH 


Van tehát a lemezen egy üres, azaz alapértelmezésünk szerinti adatokkal feltöltött index- 
táblánk. Hozzáfoghatunk a random állomány létrehozásához. 


ARANDOM ÁLLOMÁNY . A random állomány kezelési sajátosságaiból következik, hogy 
KEZELÉSE ezt az állományt nem kell létrehoznunk. A karbantartás során 
TT ugyanis az addig nem létező rekordok beszúrhatók, a nem kít- 
vánt rekordok törölhetők, a meglévők pedig olvashatók és felülírhatók. Az állománykeze- 
lés így teljes egészében a rekordok kezelésére vezethető vissza. 

A karbantartásnak értelemszerűen az indextábla betöltésével kell kezdődnie, és az index- 
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HŰRMHL. TEHSRH 


tábla kimentésével kell végződnie. Kimentéskor természetesen az új, módosított index- 
tábla kerül a lemezre, felülírva a karbantartás előtt lemezen lévő állományt, az indextáb- 
lát (10. ábra). 


RANDOMKEZELES 
program 


Bejelentkezik [§ 


10. ábra. Random kezelés I. 


Kijelentkezik 


KARBANTÁAÁRT 


i n 
[/ 
BEKEt a [/Megkotoa Talál Nem talál 
rendszamot dextáb aban] 
a 


Beolvassa a [// 44 448 éa 
rekordot Za 4) Vs 44 
i n 
Ses 11 , ábra. 
Random kezelés II.— 
kepernyore KARBANTART 


22 


A karbantartást mindaddig folytathatjuk, amíg le nem állítjuk egy végjel átállításával 


— azaz az F1 feltétel mindaddig teljesül, amíg a VEGE változó értéke logikai , igaz" nem 
lesz. 


Maga a karbantartás két fő funkcióból áll: a meglévő rekordok módosításából és az új 
rekordok beszúrásából (11. ábra). 


A feltételek: 

— F2: ha a rendszám szerepel az indextáblában; 

— F3: ha az olvasás sikeres volt, azaz a H hibakód m20; 

— F4: ha a módosítás nem ért véget, azaz a V$ válasz - "M" vagy "T". 


Látható, hogy a karbantartásnak beépített tartozéka a lekérdezés. Ha egy létező rekordot 
nem módosítunk, és nem is törlünk, akkor automatikusan ez valósul meg. 

A módosítás vagy a rekord adatainak megváltoztatását vagy változatlanul hagyását, vagy a 
teljes rekord törlését jelenti. A módosítás egy rekordra többször is végrehajtható, mind- 
addig, amíg a módosítást befejezettnek nem tekintjük (12. ábra). 


A feltételek: 


— F5: ha a rekord módosítandó, azaz a V$ válasz - "M"; 
— F6: ha a rekord törlendő, azaz a V$ válasz - "T"; 


, 


MÓDOSIT 


ús fs él 
zés ESEL 
kés) 
EZ] TÉT 
se 
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12. ábra. Random kezelés III. — MÓDOSÍT 


— F7: ha a rekord nem változtatandó meg vagy a módosítása befejeződött, azaz a V$ 
válasz — "3"; 
— F8: ha a beolvasott rekord nem azonos a rekord aktuális tartalmával. 


A program tehát a lemezen lévő rekordot csak akkor írja felül, ha a beolvasott rekord 
tartalmát megváltoztattuk. 

A törlésről már tudjuk, hogy egyszerű, így nem lepődünk meg, ha a program tervében is 
az (13. ábra). 


"Törölve" 
üzenetet ad 


13. ábra. Random kezelés IV. — TÖRÖL 


Az új rekordok felvitele beszúrással valósul meg. Minthogy a random állomány karban- 
tartása lényegesen egyszerűbb, mint a soros állományé, az állományba kerülő hibás ada- 
tok könnyedén kijavíthatók. Az adatellenőrzésre így nem kell olyan nagy súlyt fektetni, 
mint a soros felvitelnél. Bizonyos óvatosság azért itt sem mellőzhető (14. ábra). 


A feltételek: 


— F9: ha a rekord beszúrható, azaz a V$ válasz - "1"; 
— F10: ha az indextáblában van szabad hely, azaz van csupa csillag rendszámmal azono- 
sított bejegyzés; 


— F11:ha a rekord felvihető, vagyis a V$ válasz - "1". 


A program tehát lehetőséget nyújt a hibásan begépelt rekord újragépelésére, és a rekordot 
csak akkor viszi fel, ha erre külön engedélyt kap. 

Most pedig lássuk magát a programot. Kicsit hosszú lesz, de ne csüggedjünk el, gépeljük 
be! Megéri. 

Az első lépés a bejelentkezés: 


EREMT Ég" 

FRKIHT 

FRIHT k FAONYNRRÉNYRÉKNNNN Te tt 
PFRIHT " 34 HEHETTELJESITMEMTEK mi" 
FRIHT "7 004 EK HEERMHTÁRTHSH mi" 
PRIHT " ! 


FRIHT:FRIHT:PRIHT 
PRIHT "  LEGFELJEHE 38 GEFPKOCSIRA" 
3530 


HIM RÉÚCS2. TS. BeS2 


FB ü) 2) Wa 
a ae Nin Re e 


NK 
A 


BESZÚR 


Üzenetet ad Ze 
enetet a 
ATÓ 
i n 
Üres helyet 8 ; 
indextablaban 
[/ 
Bekeéri az 98 5194 "Megtelt" 
adatokat adátókó 4 üzenetet ad 


14, ábra, Random kezelés V. — BESZÚR 


Itt a program definiálja az indextábla tárbeli formáját, a három, egyenként 30 elemű töm- 
böt. (Az S a tömbméret, jelenleg 30; az R$ a rendszámok, a T a sávok (track) és a B a 
szektorok (block) címének tárolására alkalmazható.) 
Ezután a program betölti a lemezről az indextáblát: 


zi6 ÜFEM 2.22." IMDESTHELHR.ZEG.REHIT" 
zzh FÜK Isi TŰZ 

228 INFUTHE REGI 9 TÉT: Bel: 

zzák MEAT I 

zab ÜLŐISE Z 


Majd előállítja a hónapok HO$ neveit, amelyeket az adatok bekérésekor és kiírásakor fog 
használni: 

DIM HüXZlző . EMéiző  MEt iz 

HATE STAH S SEB a MH Ta RRRT 


DATA "MAJ, "TŰK, e TUL T " ALIG" 

TATA "SEFP"; "ÖKTÉE, "HOT, S HEC" 
Is1 Tü 12 

(EAN HűtéII 

HEXT I 


A KM tömböt a havi kilométerbeni teljesítmények tárolására definiáltuk. Az MM tömb 
ugyanezen adatok kimentésére szolgál a módosítás során. 

A karbantartás előkészítésének utolsó lépése a random állomány kezeléséhez szükséges 
parancscsatorna és puffer megnyitása: 

EM 18 kő 

REN Bea a a tk 


380 


Mint már említettük, a blokk tartalma beolvasáskor egy pufferba kerül, onnan tudjuk 
azután leolvasni a rekordot. Felvitelkor pedig megfordítva: a rekordot egy pufferba kell 
beírnunk, a lemezkezelő ugyanis a puffer tartalmát viszi fel a blokkra. 

Ezt a puffert kell most megnyitnunk a 390-es sorban. A ? jellel határozzuk meg, hogy 
nem állományt kell megnyitni, hanem puffert. Utána megadhatunk egy számot, amelynek 
értéke 0, 1 vagy 2 lehet. Ezzel határozzuk meg, hogy melyik puffert kívánjuk használni. 
Ennek általában akkor van értelme, ha több pufferra is szükségünk van. Ha egy puffer is 
elég, akkor a gépre bízhatjuk a puffer kijelölését azzal, hogy nem adunk meg számot. 


FIGYELEM! 
Magát a random állományt nem szabad megnyitnunk, hiszen ez fizikailag soha nem létezik, csak a le- 
mezen lévő rekordjaink logikai összességét jelenti, 


A megnyitás után következik a karbantartás, amely a karbantartandó rekord azonosító- 
jának, azaz a gépkocsi R$ rendszámának a bekérésével kezdődik: 

al GÜSLIE 1k1ki 

és ha a program nem kap leállító jelet, a rendszám alapján megkeresi a blokk címét az 
indextáblában: 

don IF VEGE THEM GÜTÜ 514 


Itt RR$ a keresett rendszám. Ha ez az indextáblában nem található meg, akkor meghívja 
a program a beszúrást végrehajtó szubrutint: 

454 IF TALAL THEM GÜTŰ 51 

gok GÜSIIE 421 

g7a GÜTŰ Eik 
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Ha viszont szerepel a rendszám az indextáblában, akkor beolvassa a rekordot, majd meg- 
hívja a módosító szubrutint: 

mik TETÉHI 

ült EzErM: 

GTSJE SZ14 

sdö GMESllE 5A1Hi 


A rekord karbantartása után a program áttér a következő rekord karbantartására: 

si PRINT 74" 

szk GŰüTÜ 4ilk 

Ha leállító jelet adtunk meg, a karbantartást befejezi a program, majd felülírással kimenti 
a lemezre az indextáblát: 


21 CLÜSE bag 


4 2.8, 2, "8: IHDEXTAELA. SEC HRITE" 
EÜF 15 4 TŰ S 

PEINTHZ REX 

ERIMTHE,TE 

! PRINTHZ, E [7 


Végül kijelentkezik és leáll: 

995 PRINT "-T":PRIMT:PRIMT:FRIHT 

A8E ERIMHT 9. RNRANANEE———————————]———knxwmy 

a97 PRIHT" d KREERMTHETHAS EEFEJEZvE Ww" 

ERINTO "0 e szi 
jee. 


Et 


1 
új 


u 
d tü 


b 


Ilyen sokfunkciójú program már természetes, hogy számos szubrutint használ. Ezek kö- 
zül sorrendben az első az RS$, a rendszám bekérése, amely minden karbantartó menetnek 
a kezdőlépése. 
A rendszám betűit és számait külön-külön kell megadnunk, a kényelmesebb ellenőrizhe- 
tőség végett. Először a BE$ betűket. 
19193 FRIHT "ZT FRIHT:FRIHT 
mh FEIMT "Gt REHDESZHÍT?" 
HARUT " BETUS $4ENWMI" ; EEá 
IF EE$z"kk" THEM VEGEZi: GÜTÜŰ 1188 
IF LEHCEE$o--z THEM GÜTŰ 143K1 
Hé LESSLEETETEEE. 1. 
1373 KRESzZzKIGHTEZBEÉ 1. 
1699 IF "A" SLE$ÜRLE$Z"Z2" THEM GOTO 16878 
18993 IF "H"-RESÜRREE$S"Z" THEM GOTŰ 1638 
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Ha a betűk helyett csillagokat adunk meg, a karbantartás véget ér. Ha nem, a szubrutin 
formális szempontból ellenőrzi a rendszám betű részét. 
Ezután adhatjuk meg a rendszám SZ$ számrészét. A szubrutin ezt is ellenőrzi: 


8 IHEPLT " SZAMz  EHEENMMINMEN" : 574 
18 IF LEMCSZ$ő-Z2d4 THEM GOTCI 1188 

28 FÜR Is1i TO 4 

38 SI$ZMID$CSZ$,I.17 

48 IF "ATSSIFORSI$ZTA! THEH GOTŰ 1188 
SA MHEXT I 

68 RS$SzEE$4SZ£ 

78 VEGEzB 

a8 RETLURH 


A E Et ka Ma Mi já ha ma 
EE E E a FL mmm 


A rendszám keresése az indextáblában egyszerű rendezetlen soros keresés; ugyanis az 
esetleges módosítások miatt még akkor sem számíthatunk arra, hogy az indextábla ren- 
dezett, ha kezdetben, a beolvasáskor az volt: 


153146 TALHI.s1 

1229 FÜK MHzi TŰZ 

IE ESLMosEEő THEM GOT 1998 
HEAT H 

TALHL EK 

RETLEHM 


heg 
ún e 


LE ENE E íj 


A keresésre két esetben van szükség: ha rekordot akarunk beolvasni az állományból, vagy 
ha új rekordot akarunk oda beszúrni. Az előbbi esetben a rendszámot, az utóbbiban pe- 
dig az első üres helyet keressük az indextáblában. 

Az adatbekérésre viszont csak akkor kerül sor, ha új rekordot akarunk felvinni, azaz be- 
szúrni. A havi KM menetteljesítményeket külön-külön kell megadnunk minden egyes 
hónapra. A szubrutin numerikus és nagyságrendi ellenőrzést hajt végre: 


2918 PERIMHT "7" :PRIMHT 

zaz PEIMHT " SSEPKÜCSIM: ".Rsx 

zöüszH FRIHT 

zö48 FRIMHT "attő MHEHETTELJEZSITHEMTEK: " 
zö564 FRIHT 

267 FÜR IÍIsz1i TŰ 12 

za FEINT "— "Hügr(In:"z o", 

zhan KkKőzii : IHPFUT KH 

zi IF EH O CE KEHZzaaa THEM GÜTŰ ZHEB 
2116 KMEI:zkM 

zi HEAT I 

2193 RETIKH 


Az adatkiírásra többször is szükség van. A rekord beolvasása és minden egyes módosítása 
után a program megjeleníti a rekordtartalmat a képernyőn: 
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2518 PRINT "rT":FPRINT 

zsza FRIHT "  3SEPKOCSIM: ";RS8 

2539 PRIHT 

2548 PRINT "24 HEHETTELJESITMEHYEK:" 
2558 FRIHT 


FOR I51 TŰ 12 

KMSKMEI: 

KKEZRIGHTEC" "ASTRECKMI 57 
PRINT "— "GHOSCI2;"z "KKE 
EVZEV4KM 

NEXT I 

EVEzZRIGHTE(! "ASTRECEVI, 6) 
PRINT 9—-——— erre 

PRIMHT "z EW z"jEWE 

RETLIRH 


ha 
tell Y 
1 Eg E E e E Et 


4 An 


kr hah 


bh 
61 
Atea 
Eszi 
Ed 


1 p 
mi 
hot 


r 


hagy 


Sőt, kiírja a menetteljesítmények éves EV$ összegét is, noha az nem része a rekordnak. 
A lemezrevitelre beszúrás és módosítás esetén kerül sor. A szubrutin először felviszi a 
pufferba a rekordot, azaz az R$ rendszámot és a 12 havi KM teljesítményadatokat: 


za18 PRIHTHE.RSE 
BE FOR 151 TO 12 


£) (2 ed aa 3 


A puffert tehát ugyanúgy használja, mintha egyszerű soros állomány lenne. A felvitel si- 
kerességét a hibarutin meghívásával ellenőrzi. 

Megjegyezzük, hogy a rendszám felvitele elvileg felesleges, hiszen szerepel az indextáblá- 
ban; de ha a rendszámot a rekordban is tároljuk, a későbbi beolvasások során ellenőriz- 
hetjük, hogy valóban a keresett rekordot olvastuk-e be. 

A szubrutin ezután lefoglal egy blokkot a felírandó rekord számára: 


zaza FEIHTH13."E—-H: "6: T5E 


Ez a parancscsatornára kiadott állománykezelő információk hatására megy végbe. 

Az idézőjelek között a BLOCK—ALLOCATE kulcsszó rövidítése szerepel. Ezzel rendeljük 
el a blokk lefoglalását, , allokálását". 

Ezután meg kell adnunk a lemezmeghajtó számát, ami a 1541-es lemezegységen mindig 0. 
Majd a T sávcím és a B szektorcím (az eredeti COMMODORE-z-szóhasználattal track és 
block address) következik. Ezek értékét az indextáblából kapjuk. 

Megjegyezzük, hogy a fenti állománykezelő utasításban semmilyen más szeparátorjel nem 
használható, mint a példában bemutatottak. 

A blokk lefoglalása után a szubrutinnak mindig lé kell kérdeznie a parancscsatornát. Ha 
ugyanis a blokk szabad volt, akkor a lefoglalás sikeres lesz, és H-O hibakódot kapunk. 
Foglalt blokk esetén a lefoglalás sikertelen, és a H hibakód értéke 65 lesz: 
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GÜslJE 4A14 


TE THEM TETT: Es 
Amint bizonyára emlékezünk rá, a parancscsatorna a H hibakód és a H$ hibaüzenet mel- 


lett egy TT sávcímet és egy BB szektorcímet is megad. Ez általában a hibás blokk címe, 
kivéve a blokk lefoglalásának esetét. 


a TŰ ZENSki 


Blokkfoglalás, azaz BLOCK—ALLOCATE után a parancscsatorna a legközelebbi szabad 
blokk címét adja meg, ha a lefoglalandó blokk már foglalt volt. 


A , legközelebbi" azt jelenti, hogy a kérdéses blokkot követő, azaz magasabb blokkcíme- 
ken elhelyezkedő blokkok közül az első szabad blokk címét kapjuk meg, ha van ilyen. 
Minthogy a szabad blokk keresése mindig csak előrefelé, a magasabb blokkcímek felé 
halad, tehát visszafelé keresés nincs, előfordulhat, hogy a megadott címnél csak kisebb 
című blokkok állnak üresen. Ekkor — az üres blokkok ellenére — a BLOCK—-ALLOCATE 
nem talál szabad blokkot, és NO BLOCK, TT -O, BB -0 hibajelzést kapunk. A program 
ezt úgy védi ki, hogy a keresést mindig az indextáblából vett 1-es sáv 1-es szektor címről, 
vagyis a lemez elejéről indítja. Sikertelen blokkfoglalás esetén a szubrutin a műveletet 
mindaddig megismétli a parancscsatorna által megadott blokkra, amíg a blokk lefoglalása si- 
keres nem lesz. 


Itt látszólag végtelen ciklust generáltunk. Valójában az első sikertelen blokkfoglalási kí- 
sérlet esetén a második sikeres lesz, hiszen ezt éppen az első által megadott szabad helyre 
hajtjuk végre. Ha pedig az első foglalás azért nem talált szabad blokkot, mert például 
megtelt a lemez, akkor a ciklus el sem jut a második menetig, mert a program már a hiba- 
rutinban a 9091 STOP utasításnál NO BLOCK hibaüzenettel leáll. 

Sikeres blokkfoglalás esetén a program a puffer tartalmát felviszi a blokkra: 


nég FEIMTHIZ. "Ea: ez s ke TE 
vig GSIIE Silk 


Ehhez is állománykezelő információkat kell megadni, szükség van tehát a parancscsator- 
nára. (Az idézőjelek között itt is rövidítés áll: a BLOCK—WRITE, azaz a blokkírás kulcs- 
szóé.) 

Ezután meg kell adnunk a puffer számára lefoglalt adatcsatornát (ami a példánkban 5 
volt) , majd a lemezmeghajtó számát (0), a sávcímet (T) és a szektorcímet (B). 

Az utasítás hatására a lemezkezelő felviszi a megadott csatornához rendelt puffer tartal- 
mát (254 bájtot) a megadott sáv megadott szektorára, akár szabad volt a kérdéses blokk, 
akár foglalt; akár a random állományhoz tartozik, akár valamelyik más állományhoz, 
programhoz vagy a lemeznyilvántartáshoz. 

Biztonsági okokból tehát csak szabad, azaz frissen lefoglalt blokkra célszerű írni. A puf- 
fer tartalmát a lemezkezelő minden vizsgálat nélkül viszi fel a blokkra; a programozó 
dolga, hogy előzőleg azzal töltse fel a puffert, amit a lemezre kíván írni. 

Végül bejegyzi a szubrutin az indextáblába a rekord adatait, az RS$ rendszámot, a T sáv- 
címet és a B szektorcímet: 
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A bejegyzés N helyét az indextáblában végrehajtott keresés határozza meg. 

A megtalált blokkról külön szubrutin olvassa be a rekordokat. Az első lépésben betölti 
a blokkot a pufferba: 

FEIHTH15. " B-k: "gs T E 

GÜISIIE  Skiki 


A puffer feltöltése a parancscsatornára kiadott információk hatására következik be. 

Az idézőjelben a BLOCK-READ, azaz a blokkolvasás kulcsszó rövidítése látható. Ezzel 
határozzuk meg, hogy egy blokk olvasása hajtandó végre. Természetesen meg kell adnunk, 
hogy a beolvasás honnan történjék, azaz a feltöltendő puffer csatornaszámát (5), a lemez- 
meghajtó számát (0), a beolvasandó blokk sávcímét (T) és szektorcímét (B). Ennek hatá- 
sára a lemezkezelő a megadott blokk tartalmával feltölti a megadott puffert. A beolvasás 
sikerességéről illik meggyőződni a parancscsatorna lekérdezésével. 

A szubrutin ezután a már feltöltött blokkból beolvassa a rekordot, mintha a blokk egy 
soros adatállomány lenne: 

zask IMELTHZ.EEÁ 

; ROR Izsi Tü iz 

THELTHELNMHE TT 


A 12 teljesítményadatot az MM tömbben megőrzi, hogy a program később ellenőrizhesse, 
ténylegesen módosult-e a beolvasott rekord. A biztonság okáért ellenőrzi a szubrutin, 
hogy a rekordban tárolt RR$ rendszám azonos-e az indextáblában szereplő RS$ rend- 
számmal, azaz hogy a blokk címe nem került-e tévesen az indextáblába: 


esot IF RES-RZ$ THEM GOTA 2697 


Ha mindent rendben talál, a szubrutin befejeződik; ha nem, akkor a rekord tartalmát meg- 
jeleníti a képernyőn, megfelelő hibaüzenettel kiegészítve: 


Í LE 2518 
2578 PRIMT 
Z588 FRIHT "REHDSZAM -";RR:"z HEH AZOMOSI" 
3588 PRINMT:FRIHT "BEGEFELEHMDÜ:" 
3608 PRINT:PRIMHT ":CLOSES:CLOSE1SM" 
3618 FRIHT:PRIHT "VAGY: " 
3828 FRINT:FRIHT "AZOHTW" 
538 STOP 
33 RETLIRH 


Ilyenkor választhatunk, hogy a hibát olyan súlyosnak tekintjük-e, amiért le kell zárni a 
feldolgozást, vagy tovább engedjük. 
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A törlő szubrutin végrehajtására csak akkor kerül sor, ha a karbantartáskor a törlés ("TT") 
funkciót választjuk: 


4819 RE(CM57-" iekeedekk " 

4629 FRINTH1I5S."B-F:"85TEM2;BAH? 
4439 GOSUB 99818 

4649 T(M-1 

4958 B-(M.-1 

40539 RETIIERM 


A szubrutin az indextáblából úgy törli az R$ rendszámot, hogy csillagokkal írja felül. 
(Ezek jelzik a táblában az üres helyeket.) A sáv- és a szektorcímet csak akkor állítja vissza 
a kezdőértékre, ha a blokk felszabadítását már végrehajtotta. 

Megjegyezzük, hogy a blokkcímet nem feltétlenül kell visszaállítani: meghagyhatnánk az 
indextáblában a törölt blokk címét is, hiszen az már szabad. Így a legközelebbi rekord- 
felvitel során megkeresvén az indextáblában az első szabad helyet — ami most a törölt 
rekord helye —, ott azonnal egy szabad blokk címét találná. Ez a megoldás azonban csak 
akkor biztonságos, ha a törlést mindig közvetlenül követi az új felvitel, és a lemezen nincs 
több állományunk. Ha ugyanis azok valamely blokkja elfoglalja a törléskor felszabadított 
blokkot, előfordulhat az az eset, amiről már szóltunk; hogy nem találunk szabad blokkot, 
noha a törölt blokk helye előtt még van szabad blokk. Ezért jobb biztosítani, hogy a ke- 
resés mindig a lemez elejéről induljon. 

A rekord fizikai törlését a lemezről a parancscsatornára kiadott BLOCK—FREE kulcsszó 
hatására hajtja végre a lemezkezelő, mégpedig úgy, hogy felszabadítja az állomány szá- 
mára lefoglalt blokkot. Lemezkezelő információként meg kell adnunk a kulcsszót, vagy 
annak rövidítését (B—F), a törlendő blokk sávcímét (T) és szektorcímét (B). 

A felszabadítás ténylegesen azt jelenti, hogy a lemezkezelő a blokk foglaltságát jelző 
bitet a lemeztérképen foglaltról szabadra állítja. (A művelet sikerességét a hibarutin ellen- 
őrzi.) 

Az új rekordot beszúró szubrutin végrehajtására akkor kerül sor, ha a karbantartáskor 
megadott rendszám nem található az indextáblában. Ilyenkor először megfelelő üzenetet 
kapunk: 


EELNT St ERINT FEIMT 
FEIHT " SGEPRKŐCSIM "5" RS$:FRINT 
FEIHT " 0GHIHCS HYILYAMHTHET SHI" 

BELT 

FEIHT S" öteő BESZÜRHATŐÓT?T "; 

IMENT "zfltMs o HENNN 7 

TF vVázöMH" THEM GÜTŐ 423535 

IF Z$72"I" THEM GÜTŰ 43524 


Ekkor még ellenőrizhetjük, hogy a megadott rendszám valóban új-e, tehát rekordja be- 
szúrható, vagy csak téves begépelés miatt nem található az indextáblában. 


Ha a rekord beszúrása mellett döntünk, akkor a szubrutin keres egy üres, azaz rendszám 
helyett csillagokat tartalmazó helyet az indextáblában: 
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a: zó REtz tgk" 
asan GüstlE 1314 


Ha ilyet nem talál, megtelt jelzést ad a képernyőn: 
si IF TALAL THEM GOT d7ik 
A lláz"H THRELB HEGTELT" 
GÜSWJE EM 

Jézb GÜTŰ drag 

Ha talál szabad helyet, bekéri a rekord adatait: 
4718 GÜSZIIE ZHiK 


Az adatok begépelése után még ellenőrizthetjük, hogy nem követtünk-e el gépelési hibát. 
Ha a rekord felvitelét megtiltjuk, akkor a szubrutin nem viszi fel a lemezre: 

rT28 FKIMT 

3 FRIHT OO" e4kii FELYIHETÁT 7 Vg 

mét HIT o "zT etes MMEBANT E 

4748 IF zu" THEH GÜüTŐ 4552 

dzala IF mez THEM GÜTÜ 473 


Ilyenkor a rekordot egy újabb, most már remélhetőleg hibátlan beszúrási menettel vihet- 
jük fel. 

Ha viszont a rekordot felvihetőnek minősítettük, akkor az indextábla alapján beállítja 
a szubrutin a blokkcímet, majd felviszi a rekordot a lemezre, és ennek megfelelő üzenetet 
ír ki a képernyőre: 


fa. 
8 e 
köti 


1 
17 18 
d MEZ" FELYIVE 
28 OGÜZSK Eik 
KHETLIRH 


A módosítás összetett funkció. Magában foglalja a rekord adatainak megváltoztatását, 
a teljes rekord törlését vagy változatlanul hagyását. Először a szubrutin megjeleníti a mó- 
dosítandó rekordot a képernyőn: 


adig GÜZLIB Zz251( 


Ekkor dönthetünk, hogy módosítjuk, töröljük, vagy változatlanul hagyjuk a rekordot: 


aaz FRIHT 

atáza IMEUT OS stém MŰ NÖS I THREE TŰRLEMÜL szét Tsz ENNI": 42 
atadni [IF vázőM" THEM GÜTÜŰ SHE 

aáül IF Váz"T" THEH GÖTŰ 5414 

adja IF vVáz"k" THEM GOTO 5214 

adas PRINT "TT; 

sasz GSÜTÜ SZA 


33 


A funkciókat az M vagy a T betű, illetve a 36 megadásával választhatjuk ki. Minden más 
válasz a kérdés megismétlésével jár. 

Ha a módosítást választottuk, a szubrutin sorra megjelöli egy nyíllal a módosítandó ada- 
tokat. Egyszerűen RETURN választ adunk, ha valamelyiket nem kívánjuk módosítani. 
Módosítási szándék esetén gépeljük be az új adatot, és csak ez után nyomjuk meg a 
RETURN gombot! A begépelt adatot külön szubrutin vezeti be a teljesítményadatok közé: 
ögetádk ÖR élk Hja lőt át Éájs áá úök rét ván tás ed ig dt tén iői ha; 

Izi TŰ l-t 

PEIHT jer kt tét Ia Me HÓ Ua Met Ket Pár tt HV NT: 

TF$3as: IHFUT vsz TE 

sdlzesa borik HI a 


A módosítás után ellenőrizhetjük annak helyességét, vagy helybenhagyjuk a módosított 
változatot, vagy újra módosítunk: 

FERIHT " AIRRTKINTN" 

GT 3H1lk 


A módosítás többször is megismételhető. 

Ha nem akarunk tovább módosítani, akkor a szubrutin kérdésére csillaggal válaszolunk. 
Ekkor a szubrutin megnézi, hogy a teljesítményadatok jelenlegi KM értéke megegyezik-e 
az MM-be eredetileg beolvasottal: 


218 FOR Isi1 TO 12 
a IF KMCIDZZMMEI; THEH GÜTŰ 5318 
sza HEXT I 


Ha egyezik (mert a rekordot csak lekérdeztük, vagy mert a rekordot tévedésből módosí- 
tottuk, majd a hibát észrevéve a téves módosítást helyreigazítottuk), akkor a szubrutin a 
rekordot változatlanul hagyja, és a blokkba nem írja vissza: 


áz" VALTÜZHTLHEH" 
GÜztlE Eő1H 
szét GÜTÜ ga 


A rekord változatlanul hagyásáról a szubrutin US üzenettel tájékoztat. Ha viszont a be- 
olvasott érték eltér a rekord aktuális értékétől, akkor nyilvánvalóan módosítás történt. 
Ilyenkor a szubrutin a rekordot felírja a lemezre: 


z I je va" 
SUB EALA 


A rekord törlése esetén, azaz ha a karbantartáskor a "T" funkciót választottuk, akkor a 
szubrutin behívja a törlő szubrutint: 
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GÜZNE eHá1 tá 
láz" TÖRÖLVE" 
GÜZE EH16 
RETIIFRM 


A módosításokat át kell vezetni a módosítandó rekordba; ez a tulajdonképpeni módosítás. 
. ssudogggáa külön szubrutin van, mely először is ellenőrzi az M$ módosító adatot: 
LsL EHET 

Me Lot ÖR Léd THEM BOTÜ 2a5a 

FÜR Jsi TÜL 

LEzMIN$ZMÁ. T.i. 

SE LES" THEH GÜTEL 5228 

We LES sa THEM RÜTE 2aaa 

MERT: J 


A formailag hibátlan M$ adatot áttölti a módosítandó rekord megfelelő KM helyére: 


sea KHEIOSVALEME: 
55939 RETLIRH 


Formailag hibás M$ adattal a módosítást nem hajtja végre. Az adatbekérés azért karak- 
teres formájú, hogy a módosításhoz megjelenített rekordtartalmat a hibás válaszadás ese- 
tén a képernyőre íródó gépi hibaüzenet ne bonthassa meg. 

A karbantartással kapcsolatos U$ üzenetek, például IMODOSIÍTVA, FELVIVE, 
TOROLVE, VALTOZATLAN stb. kiírását külön szubrutin végzi: 

shit FRKIHT 

szeti ER GT u" hr ij Hál Hl E: sőöt Hl"! 


Az U$ üzenet kiírása után a szubrutin időt hagy az üzenetek elolvasására: 


-T1ci58 THEH OGTÉT Ekiaki 


Ehhez a szubrutin a gép óráját (TIME) kérdezi le, mindaddig, amíg bizonyos idő (mint- 
egy 2,5 másodperc) el nem telik. 

Minden fontosabb lemezművelet után meghív a program egy hibakezelő rutint, amely- 
ben lekérdezi a parancscsatornát. Hiba esetén kiírja az éppen feldolgozás alatt álló rekord 
RS$ azonosítóját, a rendszámot, valamint a H hibakódot és a lemezkezelő H$ hiba- 
üzenetét: 


ani6 IMHPUTHIZ.H.HESTT. Sz 

a028A IF H-zA ÚR (H-é3 HHŐ TT-izHi THEM GUTŐÚ 39855 
9a38 FRINT "r":PRINT:FPRINT 

3049 PRINT "HIBA: ";RS£E 

9458 PRINT H;" - ";Há 
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Ezután választhatunk, hogy a karbantartást feznétiseesátalátási vagy folytatjuk: 


:FRIHT 
nát a LENNE: 
a) It jú MY a [E 2. 38 


"PRIHT SAL ÜMHT e 


d 
3 RETIRHM 


Megjegyezzük, hogy a blokk lefoglalása (BLOCK—ALLOCATE) után feltétlenül le kell 
kérdezni a parancscsatornát, azaz meg kell hívni a lekérdező szubrutint, mert másként 
nem győződhetünk meg a blokkfoglalás sikerességéről, illetve csak így kapható meg a 
legközelebbi szabad blokk címe. 

Ezzel a program elkészült. Ha begépeltük, mentsük ki RANDOMKEZELES néven, majd 
indítsuk el. Elsőként AA 1111 rendszámot adjunk meg. 


1 REHUSZAM? 
BETLIz? AR 
SZAMs? 1111 


Minthogy most az indextáblában egyetlen rendszám sincs, a program megkérdezi, hogy 
az új rekordot beszúrhatja-e. 


Jad élné: HH1111 
miHa HelL-HHLHE LYÓ 
id EFEZZIEHHTOŰ? s1/Msv I 


Válaszoljunk igennel, s amikor a program az adatokat kéri, mind a 12 hónapra nulla kilo- 
méter teljesítményt adjuk meg (lásd 37. oldal felső ábra), 


Tegyük ugyanezt még három másik rekorddal is, mondjuk FF 6666, DD 4444 és II 9999 
fiktív rendszámokat használva. 

A ,, Felvihető?" kérdésre természetesen mindig igenlő választ adjunk, feltéve persze, hogy 
nem vétettünk gépelési hibát. 

Most tehát már van négy rekordból álló random állományunk. Módosítsuk a DD 4444 
gépkocsi adatait. Adjuk meg a rendszámot. Ekkor az adatok megjelennek a képernyőn. 


Adjunk "M" választ, minthogy módosítani akarunk. Most módosicsuk a januári értéket 
0-ról 100-ra! 


Ezután fejezzük be a módosítást, vagyis a program kérdésére hagyjuk meg az előre meg- 
adott csillagot, és nyomjuk meg a RETURN gombot. (38. oldal.) 


A következő lépésben kérdezzük leazFF 6666 gépkocsi adatait. A rendszám megadása 
után a rekord megjelenik a képernyőn (lista a 39 oldalon). 
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- HÚVz 7 


aa 
aaz 


Ftp yt 


ÉTTVE ETT e 


- JUMZ "7 


Ksdolalmzsá: FHH111i1l 
MEMHETTELJESIÍTHEMTEK: : 


[sú 


JRHz 
FEBz 7 
MARE 7 
HERE 7 
MAJZ 7 


a ni 


Mit ? 
HUGz 7? 
SEPz ? 
ÜKTz ? 


r S a a a ni ai 


dor 


a 


DECz ? 


a 


FELYIHETÜ? sIrMHz7 I 
Ja WW4 Wa 


Ki sdKI KERN: 004444 
MEMETTELJEZITMEMTEK. : 


JRNz b 
FEEz a 
MARz a 
HFRz íg 
MR.Iz 13 
JIJMHz A 
JUL- új 
HIJGZ fi 
SsEF- [7 
ÜKTs Aa 
Nijvz id 
DECz a 
EY z a 


MODOSITANDO/TÖÜRLEHDŐ :id/Tz? fh 
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KizladálnTsA: DD4444 


sa 
na 


MEMNETTELJESÍTMEHNTEK : 


JANz 94 7 199 
FEBz 
MARz 
AFEz 
MAJz 
JÍUNz 
JULSs 
HUGz 


bet db PPE a Md 


GGESDGOA AG GO G 


kekeeesáeee kese sáeseteseáeeeáeeeáeeeáeee 


(1 MŰDÜSIÍTAMTŰO/TÜRLEMHDO zM/T5? M 


mMadalázzt DD4444 


14 MEMHETTELJESÍTMENYEK : 
- JAMz 199 
— FEEz Ez 
— HARz a 
— HPRz 5 
— MAJ ei 
— JIJMe a 
- JÚL a 
— ALÓ ő 
- SEFz a 
- ÜKTs Ez 
— HO fi 
ös 193 


id HŰDÖZÍITHAHÜGTŐRLENHDŰ sfh/Tz7 4 
d VAY a LR GÁ HK ad a] 
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HZdAKKEtA FESGEES 
4 HEMETTELJEZITHEMTEK. : 


-— JIHHz [2 
- FEBz 92) 
- MHRz Ki 
-— HFkz Va] 
- HHIz Ki 
—  JIJHz KH 
a [lILz 4 
- HAJOuz 19) 
- 5EFz ki 
mm ÜKTs [a 
a MŰV sz [2 
- MEL [2] 
z EV z d 


id MŰDÖSITARHOO/ TÖRLENDŐ -í/Tz7 
vol LULHILHI 


A rekordot hagyjuk változatlanul, azaz a válaszunk csillag legyen, majd adjuk meg az 
II 9999 rendszámot. Amikor a rekord megjelenik a képernyőn, karbantartási funkcióként 
adjunk "T" választ, tehát töröljük a rekordot: 


EHadáNKZA: I [199539 


ara 
na 


MEMHETTELJESIÍTMENYEK : 


JHMz 
FEB- 
MARz 
HFRz 
MAJ z 
JUNz 
JULz 
AIJGz 


irva tönvönrönvöttönvnvönvöAtÉLT 


lak AM Jak ámaaát sát ámaló eme. imát sm eve aa szt 


id MÓDOS ITAMDO/TÜRLENDŐ sM/Ts? T 
NUN 2 39 


Hívjuk be ismét a már módosított rekordot a DD 4444 rendszám megadásával, és módo- 
sítsuk a februári 0 adatot 200-ra: 


KAdá(NKSZt: 004444 


a 
nur 


MHENETTELJESITMEMTEK : 


JAHz 1996 7 
FEEz gé § 
MAR g 
HPRz 
MAJz 
JUNz 
JUL- 


TA ÁL s ÁT KLTE Ő 


z EV s 1648 
id MŰDÖSITRMOD/TŐRLEMDG st/Tz7 H 


Újra válasszuk az "M" módosítás funkciót, és változtassuk a márciusi és áprilisi adatokat 
0-ról 300-ra, illetve 400-ra: 


kiadalpsá DD4444 


wa 
maz 


MHEMNETTELJEZI THEHTEK : 


JHAN- 
FEBz 
MARz 
AFRz 
MAJz 
JUNsz 
JULz 
ALIGz 


$(0N E 
[ad otáutáut 


[era tönvövönvötvönVöLTÉLVÉÖLVÉLTÉLY 


kett Et t E E ET 


né semm Ages. maman AAH áró  Aargg lak NEEE temet éig ame 


4 MODOSITANDOÓ/ TÖRLENDŐ stM4/Tz? 4 
Ú 000 (TK) Ú8 KÉS] Fejezzük be a módosítást. 


Kérjük be az II 9999 rendszámú gépkocsi adatait.  , NINCS NYILVANTARTVA" üzene- 
tet kapunk, mivel a rekordot már töröltük. 


Haddmát: 113998 
HTMTS TETLYENTAT I VI 
4 BESZURHATO?T 5I/M5z? H 


A , Beszúrható?" kérdésre adjunk nemleges választ. 

Végül kérjük be a BB 2222 rendszámú gépkocsi adatait. Ez sincs nyilvántartva, de most 
szúrjuk be. Szintén csupa nulla adatot adjunk meg. Ezután állítsuk le a programot úgy, 
hogy a rendszám bekérésekor betűk helyett két csillagot adunk meg. 

Ezzel a karbantartó program fő funkcióit, vagyis a beszúrást, a módosítást, a változatlanul 
hagyást, a törlést és a lekérdezést teszteltük. 


Érdemes persze a programot alaposan próbára tennünk számos más szempontból is, Pél- 
dául: hogyan viselkedik, ha a rendszámnak 3 betűt adunk meg, vagy a számrész nem nu- 
merikus? Mit tesz a program, ha betelik az indextábla? Mi történik, ha módosítás funkciót 
választunk, de a havi adatokat nem módosítjuk? Milyen adat kerül a rekordba, ha az 
adatbekéréskor semmilyen adatot nem gépelünk be, csak a RETURN gombot nyomjuk 
meg? Milyen adat kerül a rekordba, ha felvitelkor nem numerikus értéket gépelünk be? 
Mi történik, ha ugyanezt tesszük módosításkor? Mit csinál a program, ha a feltett kérdé- 
seire nem az előírt betűkkel válaszolunk? És még folytathatnánk tovább a kérdéseket, 
amelyekre választ csak egy alapos tesztelés adhat. 


Ha a tesztelésen túlvagyunk, töltsük be és listázzuk ki a lemez tartalomjegyzékét. Látni 
fogjuk, hogy abban a random állomány nem szerepel. Ennek okát már korábban ismer- 
tettük: a random állomány csak számunkra létezik, a rekordok logikai összességét jelenti. 

A random állomány jelenlétére a lemezen csak az utal, hogy a szabad blokkok száma 
nem egyezik meg az adattárolásra használható blokkok számának (664-nek), valamint a 
tartalomjegyzékben felsorolt állományok és programok által elfoglalt blokkok összegé- 
nek a különbségével. 


FIGYELEM! 

Mivel a lemezen már van random állomány, nem adhatunk ki VALIDATE parancsot. Ennek hatására 
ugyanis a lemez újraszerveződne, ami a tartalomjegyzékben rögzített állományokhoz nem tartozó 
blokkok felszabadításával, Így a random állomány megsemmisítésével járna, 


Az indextáblával kezelt random állomány előnye, hogy rekord- 
jai sorosan is feldolgozhatók, noha maguk a rekordok a leme- 
zen össze-vissza, gyakorlatilag véletlenszerűen fordulnak elő, 
és csak közvetlenül érhetők el. 

A feldolgozás lényege, hogy sorban végigmegyünk az indextábla bejegyzésein, és az álta- 
luk meghatározott rekordokat feldolgozzuk, természetesen figyelmen kívül hagyva az 


A RANDOM ÁLLOMÁNY 
SOROS FELDOLGOZÁSA 
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indextábla üres (csillaggal feltöltött) helyeit. Ilyenkor a random állomány rekordjainak 
soros feldolgozását közvetlen elérések sorozatával valósítjuk meg. 

Tekintsünk egy egyszerű mintafeladatot: készítsünk listát az egyes gépkocsik tetszőleges 
intervallumon belüli összesített menetteljesítményéről, ahol az időintervallum adott hó- 
naptól adott hónapig, de legfeljebb januártól decemberig tarthat (15. ábra): 


RANDOMSOROS 


program 


Betölti az Ülsz Összegsort 
indextáblat j4 készit 


s] 7 TE 


Veszi az Beolvassa a 


rekordot 


indextáblából 
a cimet 


Feldolgoz 


szüz WA 


Hibaüzenetet ad, 
és leáll 


15. ábra. Random soros feldolgozás 
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A feltételek: 


— F1: ha nincs vége a listázásnak, azaz VEGE-"N"; 

— F2: 1-től 30-ig egyesével; 

— F3: ha a kiírandó rekord létezik, vagyis a rendszám az indextáblában nem csupa 
csillag; 

— F4: ha hibás volt az olvasás, tehát a H hibakód 2 19; 

— F5: a H1 kezdő hónaptól a H2 záró hónapig egyesével. 


Látható, hogy a program nemcsak egy listát készít, hanem addig készíti a különböző 
listákat, amíg le nem állítjuk. 

A bejelentkezéssel kezdjük: 

ÉRINT. "4" 

FRINT 

UNT " MENETTELJESITMEHTEK" 

KINT " ETELSTHZRSF di 

PRINT Ot ses ee rve és te tám ten men tem maa mer sav se esmeg VT 

FRIHT 

FRIHT 


-4 e en ap es Vö 


Majd definiálja az indextábla R$, T, B tömbjeit, a havi teljesítmények K tömbjét és a 
kezdőértékeket: 

19 DIM ki-sHio Tt eézkis , Be zi 

ag DIM kélz. 

ab Ező 

aa üsző ktktkkT 


Megjegyezzük, hogy a lista a képernyőn jelenik meg, de egyetlen sor, a 30-as megváltoz- 
tatásával (vagyis ha az E-3 utasítást kicseréljük az E-4 utasításra) a listázás a nyomtatón 
történik. Elvileg megoldható az is, hogy a kiírásra használt eszköz egységszámát a billen- 
tyűzetről kérjük be. Ezt egy korábbi példánkban meg is tettük. 
A program ezután megnyítja a parancscsatornát, a random állomány kezeléséhez szük- 
séges puffert és azt az egységet, amelyre a listázás végrehajtandó: 
lú ÜFEM 12.8.15 
181 ÜFEH 3.5.3. "tt" 
192 ÜFEM 1.E 
Majd a már ismert módon betölti az indextáblát: 
118 ÜPEH 2.352." IHDESTHELH., SEM. KEH[" 
128 FÜK I-i TŰ 56 
13a : IMNFUTHZ R$-rI5.T6I2.E(I. 
140 MEXT I 
SGSSLLOSE z 


Bekéri a H1—H2 listázási intervallumot, és ellenőrzi is, hogy értelmes-e. (Ha nem az, 
a bekérést megismétli.) 
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zi18 INFUT " HELYIK HOHRPRFTOL zs ";H1i 

kegy a) dj Hitzi ÜK Hisiz THEH GÚTÜ 210 
zata FERIHT 

z4gdá :  IHFUT " HELYIK HOMKRFIG z ";Hz 
zog : IF Hz-C1i1 ÜR Hz-1z THEN GOTŰ 244 
zbő : FRINMT 

zrb IF Hz-.H1i THEH GUTŰÓ 214 

zo : H1-IHTE HI: 


281 : HI$z-RIGHT$-STR$(H1D,2) 
2398 :  HZSINT(HZ) 
291 :  HZSZRIGHT$E(STRS(HZ) 2) 


A hónapszámok karakteressé alakítása csak a nyomtatási formátum egységessége érde- 
kében szükséges. 

Elkészíti a lista fejlécét: 

zib9 : FKRIMTH1LI, "I" 

sza : FPRIMTHI 

zza : FRIHTHLI,.," éw MEMETTELJESÍTHEMTEK sw" 

348 :  PRINTH1," ———— enem eme men ü 

zak : FRINTH1L." "5H1I$5". HONRETÜL "; 

sed : FRIHTH1." "5; HZ£$5". HONKRFIG" 

378:  FRIMTHL," ———— ose een menne [ 

szd : FRIMTHI 

Kinullázza a mindösszesen MM gyűjtőjét: 

diü :  MM-Gg 

Eddig tartott a listázás előkészítése. 

A tulajdonképpeni feldolgozás most kezdődik: a program végigmegy a teljes indextáblán. 
A C$csillaggal feltöltött bejegyzéseket figyelmen kívül hagyja. Amelyikben azonban rend- 
számot talál, ahhoz beolvassa a megfelelő rekordot: 


lő 4.2 Iagtó ását Izs1i TŰ Sí 


ved : IF ká-/15-Lü£ THEH GÖTŰ 6357 
é3ki : : . ER$5KR$f I) 

IGA : : TsTfI. 

sza : :  EzB(I? 

apa :  : GOSIJE 1418 


A beolvasott rekordból veszi a teljesítmények K adatait, és összegezi őket a megadott 
időintervallumon belül: 


sza : o: Mzü 


zagű : 0: FÜKk J5sHl Tü Hz 
azé o: o: 0: - MEfltkrJi 
aaa:  § .(MEAT 3 


Kiírja az adott gépkocsinak az adott időintervallumon belüli összesített M menettelje- 
sítményét: 
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bla : 0: MEázKIGHTE([" SESTR$LMI 7 
szó : o: RESZLEFTX(RKE.zZ5417—őtRIGHTHE ERRE. d. 
639 : 0: FRIMTHL." "REE" "MEG" KM" 


A karakteres kiírási formára itt azért van szükségünk, hogy a számadatok helyi érték sze- 
rint elhelyezkedve jobbrazárt számoszlopot képezzenek — feltéve, hogy a kilométertel- 
jesítmények csak egész értékek lehetnek. 

Mielőtt a program áttérne a következő gépkocsi, tehát az indextábla következő bejegy- 
zésének feldolgozására, a kiírt teljesítményértéket az MM (mindösszesen) gyűjtőbe 
gyűjti: 

edd : :  MAESHFAM 

699 :  NEXT I 


A gépkocsik feldolgozásának befejeztével kiírja az összegsort, azaz a gépkocsik együttes 
MM menetteljesítményét: 

r18 : FRIMT$I 

rza : FRIMTH1i," szsssszzsszzeszszmmszmszseszseszztsz" 

-38 : MÉázKIGHTE(" SSESTEEZMM 79 

749 :  FRKIMTH1.," ÖSSZESEM: "Má; " KM" 

Ezt követően megkérdezi, hogy akarunk-e további, a most megadottól esetleg eltérő 
intervallumon belül listát készíteni: 

819 : FRIHT:PKINT 

öz : IHPUT " VEGE -I/Mz ";Vv$ 

sg : IF váz "I" THEM GÜTŰ 514 

, 840 : IF v$Cr"M" THEM GÜTŰ 44 


Ha akarunk, akkor a listakészítést az intervallum bekérésétől kezdve újraindítja: 

85a : FRIMT "4" 

869 : PRINT:FRIHT 

823 GÚTŰ 214 

Ha úgy döntöttünk, hogy a listázásnak vége, akkor lezárja a kimenő állományt, a puffert 
és a parancscsatornát, majd leáll: 


319 ÜLÜSE 1 

926 CL0SE 3 

938 CL0SE 15 
393 EMD 


A rekordokat beolvasó szubrutin először betölti a blokkot a pufferba, egyben ellenőrzi 
a művelet sikerességét: 


1919 FRIHTH15."B-R: "3545 T BE 
1029 GÜSIJB 57416 


Most következik a rekord olvasása. 
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Ebben a programban azonban nem ellenőrizzük, hogy a rekordban tárolt rendszám azo- 
nos-e az indextáblában lévővel, ezért a rekordból a rendszámot be sem kell olvasnunk; 
egyszerűen átléphetjük, és a rekord olvasását közvetlenül a havi teljesítményadatokkal 
kezdhetjük. Ez azért oldható meg, mert a pufferhez tartozik egy mutató, angolul 
POINTER, amely a puffer olvasásakor mindig megmutatja, hogy a puffer hányadik bájt- 
járól kell beolvasni a soron következő adatot. 

E mutatót (pointert) a lemezkezelő O-ról indítva, a puffer kezelésével összhangban auto- 
matikusan állítja, de megfelelő lemezkezelő információk megadásával mi magunk is be- 
állíthatjuk, illetve átállíthatjuk: 

18328 FPRIMTH15,"B-P:"3;7 

A mutatót beállító információkat a parancscsatornára adjuk ki. A műveletet meghatározó 
kulcsszó a BUFFER-—POINTER. Általában a B-—P rövidítést használjuk. 

Ezután meg kell adnunk a puffer számára lefoglalt csatornát, ami esetünkben 3. Végül 
meg kell határoznunk azt a bájtpozíciót, amelyről a következő pufferkezelő műveletnek 
indulnia kell. Esetünkben a rendszám hat bájtját, valamint a szeparátorjelet akarjuk át- 
léptetni, igy az olvasásnak a 8. bájton, azaz a 7-es bájtpozíción kell elkezdődnie, mi- 
vel a bájtokat 0-tól számláljuk. 

Megjegyezzük, hogy a puffer mutatója nemcsak olvasáskor, hanem íráskor is aktív, ez 
esetben mindig azt mutatja meg, hogy a puffer melyik bájtjáig van már feltöltve. Termé- 
szetesen a mutató értékét ilyenkor is beállíthatjuk, szükség szerint O és 255 között bár- 
milyen értékre. Ha nem élünk a mutató beállításának lehetőségével, mint ahogyan ezt a 
RANDOMKEZELES program lemezolvasó szubrutinjában tettük, akkor a lemezkezelő 
minden pufferfeltöltéskor automatikusan O-ra állítja a mutatót, és a további pufferkezelő 
műveletekkel összhangban automatikusan kezeli. 

Most végre következhet a rekord beolvasása, amely a fenti pufferbeállítás hatására a meg- 
adott bájtpozíciótól, vagyis a havi teljesítményadatoktól hajtódik végre: 


1949 FÜK J-l1 10 1z 
10539 : IMFUTHZ:.KÉJI 
1953 MEAT J 


A lemezkezeléskor meghívott hibarutin hibajelzést ad, ha a lemezművelet sikertelen volt. 
Ilyenkor a rutin a nyitott csatornákat lezárja, majd leállítja a programot: 


3918 IMFUTHIS:.H.H$.TT.BEB 
güza IF HCzg THEM GOTÚ 393939 
9930 FRINT H;H£$.TT:BE 
5949 : CÜLÜSE 1 


9959 : CLOSE 3 
9969 : CLOSE 15 
3999 : STOP 


2933 RETURH 
A szubrutinban a RETURN utasítás egyrészt dokumentációs okokból szerepel, másrészt 
azért, hogy ne feledkezhessünk meg róla, ha a hibakezelést úgy írnánk át, hogy a program 


hiba esetén is folytatható legyen. 
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A programot gépeljük be, és mentsük ki RANDOMSOROS néven, de ne futtassuk le! 
A listázás elindítása előtt ugyanis célszerű a random állományba olyan adatokat felvinni, 
amelyekkel a listázás és a kigyűjtés helyessége könnyen ellenőrizhető. Töltsük be és in- 
dítsuk el ezért a RANDOMKEZELES programot. Vegyük sorra az AA 1111, FF 6666, 
DD 4444, BB 2222 rendszámmal azonosított rekordjainkat, és módosítsuk az adatokat 
úgy, hogy a havi teljesítmények az első gépkocsinál 100, a másodiknál 600, a harmadik- 


nál 400, a negyediknél 200 kilométeresek legyenek minden egyes hónapban. 


E módosítások végrehajtása után töltsük be és indítsuk el a RANDOMSOROS progra- 
mot. Először kérjünk listát a januári teljesítményekről, azaz az 1. hónaptól az 1. hónapig. 


Majd a második negyedévről, vagyis a 4. hónaptól a 6. hónapig: 


44 MEMHETTELJESITMEMTEK tép ve MENETTELJÉSI TMENYEK rid 


tan tálka OV aa ale éa0A tal ET Ea 110 önág A. la00 ET EÉ5NE 919l. kárt. álO0I án. pata 99. matan em. mt. ket eekeezeteeetesáeeeáeeekesekeseei 


1. HÜNHFT ÜL 1. HOMHFIG 4. HOHARFTOL 


da ezntn 1é3vO. INN éavOE. haat 101 tata sátánt. 1áb00. álat. tal taetá aÉT á008 ball matőt tágan. ag at. ag ago. emma toe ama sala sát 19 AI 13068 tát hátán, sala a5AN. 5308. ő09am magat. ab avn alga 


AA-1111 : tö KM AFH-1111 
FF-ESEGE : Eőő KHM FF-EGES 
DD-d4444 : AHA KM 0D-4444 
BB-z2zz : 286 KM BB-2222 
metert meteren tozenévetjtetytáfávemépszteétovempne -itszev Za aes ő eze TT etés ut Sás s. 
ÜSSZESEM: — 1308 KM OSS 


Végül a teljes évről, tehát az 1. hónaptól a 12. hónapig: 


ve MEHETTELJESZITHMHEMYEK 94 
1. HOHRPTÜL 12. HOMHEIG 


ea ee kes esekeetesákesekese ezásezáeszáesáneestezáezázeáeáee 


MH 1111 
FF-ES56ét 
DD-4444 
EE-zzzz 


sa tő98 röv stat fágea ng tpáb eyvamm sgéhe agyar peter rérye emere áram egann mént. tát. mesa emammn 
EZ ET E TET ZET DET AE ZA iben et 1TTT TÉTEL ZT te TT al matoa een emteen 


CSSZESEM: 188Hú EH 


HONAPIG 


ajnáa gát töetó mzaág sava tárg targy magna tépő 


Ennyi talán elég is ahhoz, hogy meggyőződjünk a program helyességéről. A listázást tehát 


leállíthatjuk. 
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AZ INDEXTÁBLA Az indéxtábla rendezésével elérhetjük, hogy a random állo- 
RENDEZÉSE mány rekordjaira rendezett soros feldolgozást is végrehajt- 
jöeázzzzászsásztaánázzátág : , INŐSSÜNIKK 

Példánkban akár a csoportonkénti feldolgozásnak is lehetne értelme, mondjuk akkor, ha 
egy csoportba tartozónak tekintjük azokat a gépkocsikat, amelyeknek a rendszáma 
ugyanazzal a betűvel kezdődik. 

A rendezés különösen akkor egyszerű, ha olyan kis indextáblánk van, hogy a tárban is 
rendezhető. A lehetséges rendezési módszerek közül egy olyat választottunk ki, amely 
egyszerű és biztonságos. 

A rendezés hatásának könnyebb megfigyelése végett a rendezett indextáblát a létreho- 
zása során nem visszük fel a lemezre, hanem a tárban tartjuk, amíg össze nem hasonlít- 
juk az eredetivel. 

Megjegyezzük, hogy így a rendezés után két indextáblánk lesz: a rendezett és a rendezet- 
len. Ezt kizárólag a szemléltetés indokolja; a nem tanulás, hanem valódi felhasználás cél- 
jára készített programban ez felesleges. 

Rendezési módszerünk az, hogy kiválasztjuk a rendezetlen indextábla legkisebb elemét, 
majd betöltjük a rendezett indextábla első helyére. Ezután megkeressük a rendezetlen 
táblában a második legkisebb rendszámot, és a neki megfelelő bejegyzés adatait átírjuk 
a rendezett indextábla második helyére. Így haladunk tovább mindaddig, amíg az új in- 
dextáblát teljesen fel nem töltjük. 

Arról persze gondoskodnunk kell, hogy amikor a második legkisebb elemet keressük, 
akkor ne ismét az elsőt találjuk meg. Ezért valahányszor megtaláljuk a legkisebb elemet, 
az új indextáblába való áttöltése után legnagyobb elemet kell csinálnunk belőle, tehát 
a rendezetlen táblában át kell írnunk a rendszámot az összes többinél nagyobbra, 

Ezzel az algoritmussal a bejegyzéseket rendszám szerint növekvő sorrendbe rendezzük. 
Ha csökkenő sorrendben kívánunk rendezni, ugyanígy járunk el, de a legkisebb elem he- 
lyett mindig a legnagyobb elemet kell választanunk. 

A rendezőprogramunk tetszés szerint növekvő vagy csökkenő sorrendben tudja ren- 
dezni a 30 elemű indextáblát (16. ábra). 


A feltételek: 


— FI: ha növekvő sorrendet határoztunk meg, vagyis a V$ válasz - "N" ; 
— F2: ha a régi indextábla felülírására engedélyt adtunk, azaz a "MEHET?" kérdésre 
a V$ válasz "1" 


A program maga az alábbiak szerint néz ki. 


Először bejelentkezik: 


PRINT "7" 
FRIHT 
FRIHT " IMDEXTABLA REHDEZESE" 
PRIHT " —————— enn " 
PRINT 
FRINT 
PRIHT 


Ja me 


NÜCn FR ü 


É s 
00 


INDEXRENDEZ 


program 


ez) 


Betölti az Kiirja a Kiírja a Felőliéja a 
indextablát rendezetlen rendezett régi táblát 
tablat tablat 
i n 
Növekvö Csökkenö 
sorrendben sorrendben 


16, ábra. Az indextábla rendezése 


Majd definiálja az új RR$, TT, BB indextáblát, a régi R$, T, B indextáblát, a C$ legki- 
sebb rendszámot, a P$ legnagyobb rendszámot és az S$ szeparátorjelet: 

18 DIM RRE(387.TTÉ 3819, BBES3H/ 

z DIM R$-/300. TÉZB2, BE3ks 

39 Csz"kkkkke 

48 Fíz"armrannr" 

50 S$ztHE$r 134 

Az indextábla üres helyeit jelölő csillagok alkalmasak a legkisebb rendszám szerepére, 
hiszen kódjuk minden betű kódjánál kisebb. Éppen ezért nem jelölhetik a legnagyobb 
rendszámot is, így növekvő sorrendű rendezés esetén a csillagokat ki kell cserélnünk a 
nm jelre, mert az valóban nagyobb minden más karakternél. 

A program betölti az indextáblát: 

119 PEN 2.8.2."IHDEXTABLH. 5E0 . KEHD" 

iz FÜK Is1i TÜ 534 

138 :  IMPFUTHZ káC I... T6I5.BÉI. 

139 HEAT I 

093 ÜLOSE e 


Megkérdezi, hogy milyen irányú rendezést óhajtunk. Csak a növekvő (N) vagy csökkenő 
(C) választ fogadja el: 
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219 FRIHT " HÜVEEVÜ/ÜSÜKKEHÜ" ; 
zzz FRIHT " SÜRREHBEH?7" 


zak FKIHT 
z4á8 IHEUT " VALASZ SALAK MINI"; 78 
zab IF Vál2őH" HHD V$€£5/7Ü" THEM GÜTÓ zdíd 


Akármilyen sorrendet is határoztunk meg, függőlegesen kettéosztja a képernyőt: 


zi FRIHT "4" 


328 FRIHT 
330 FRINT " EREDETI :", , , FEHDEZET [ 
348 PRIMT " szzzzzsez!, , "zzzzszzszzeze! 


za FRIHT 

A képernyő bal oldalán megjeleníti a rendezetlen indextáblából vett R$ rendszámokat, 
két hasábra tördelve. Az első hasábban van az első 15 rendszám: 

368 FÜR Izi TO15 

361. .: - PRINT " "4R$(19 

363 MEXT I 

A másodikban pedig a második 15: 

378 PRINT "intRIN" 


38ú : FÜR I-16 TŰ 30 
331 FRINT /R$(I2t" IV" 
388 HEAT, 1 


Ezután a kérdésre adott válaszunk alapján növekvő vagy csökkenő sorrendben végrehajtja 
a rendezést, vagyis létrehozza az új indextáblát: 

g1i9 IR váézőMH" THEM GOSUEB 1414 

gab IF v$ázőr" THEM GÚSÜUB 2416 


Ezután a képernyő jobb oldali felében megjeleníti a rendezett indextáblából vett RR$ 
rendszámokat, a rendezetlenhez hasonlóan 15—15 rendszámot tördelve egy-egy oszlopba: 
s18 PRIMT " AMBI" 

sz FÜR Iz1 TÚ 15 

szi : FKEIHT , RER$(I) 

Szadat 1 

sz8 FRIMT " AMBN2" 

szd FOK Izi6 TŰ 34 

941 : FRIHT .. .KR$( I. 

549 HEAT I 


Ekkor választhatunk, hogy megtartjuk-e az eredeti, rendezetlen indextáblát, vagy meg- 
semmisítjük, és mostantól fogva az újat, a rendezettet használjuk: 


bl18 FRIHNT 
ező IMFUT " MEHET z[/Hz ";Vv$ 
s50 IF 7$€2"I" THEN GOT 314 
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Ismételten felhívjuk a figyelmet arra, hogy e lehetőség csak azért van a programunkban, 
hogy az indextáblát tetszésünk szerint akár többször is átrendezhessük, és ezeknek a ren- 
dezéseknek az eredményét kényelmesen tanulmányozhassuk. A program biztonságossága, 
azaz az állomány védelme ilyen módszert nem tesz szükségessé, hiszen egy jól tesztelt 
rendezőeljárás az állományt nem tudja elrontani, az csak a lemezreíráskor, illetve felül- 
íráskor sérülhet meg. Ez pedig kivédhető, ha a rendezett indextáblát egy új állományba 
visszük, és sikeres létrehozása után töröljük a rendezetlent; vagy előbb másolatot készí- 
tünk a rendezetlenről, majd felülírjuk a rendezettel. (A felhasználói programokban álta- 
lában ezt tesszük.) 

Ha úgy döntünk, hogy jöhet az új, akkor a program az új indextáblával felülírja a leme- 
zen lévő régit: 


719 : ÜFEMH 2.8.7,"(a: IHDESTHELH, SES HRITE" 
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ő zó FOK I-z1i Tú 38 

799 :  : FEIHTHZ FRER$ZI25S$5TTéI255$5;EB(I/ 
7dg : HEAT I 

739 : ÜLŐÜSE z 


Akár az új, akár a régi indextábla mellett döntünk, a program döntésünknek megfelelő 
üzenetet ad: 
FERIMNT S29":FRIHT:FRIMT 
FEIHT " MEMT." 
GÜTŐ 797 
:  FRIHT "TT": FRINT:FRIHT 
PRIHT " AEKÜR HERO MEGYE 


6 0 00 Ül €ü 
Po Mm WU fi 
manna nni 


Végül leáll: 

9233 EHD 

Most pedig lássuk magát a rendezési eljárást. Először növekvő sorrendben rendezünk, 
mert az a bonyolultabb. 

A rendezőeljárás egy 30 menetes ciklusból áll, amelynek minden egyes menete rendre az 
új indextábla egy-egy elemét állítja elő: 

1919 FOK I5s1i TíJ 241 

A program optimista módon feltételezi, hogy a rendezetlen táblának mindjárt az első 
eleme a legkisebb. Ennek megjegyzi az L indexét: 


lőzó : Lzi 


Majd megvizsgálja a rendezetlen tábla összes többi R$ elemét, hogy kisebbek-e ennél a 
legkisebbnek tekintett elemnél: 


11g8 : FI ZA 
ÍILO E s C$ THEM R$-JÖZFE 
iiga : : IF "(Li THEM LzJ 


1199 : HEAT 


Persze, ha valamely bejegyzésben rendszám helyett C$ csillagokat talál, ki kell cserélnie 
őket a P$ Tr karakterre, különben mindig az üres helyek lennének a legkisebbek. 
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Ha valamely táblaelem nem kisebb a kiválasztott elemnél, akkor a program nem tesz 
mást, mint veszi a következő táblaelemet. Viszont ha valamely táblaelem kisebb a kivá- 
lasztottnál, akkor a kisebb táblaelem J indexét jegyzi meg, és a további hasonlításokban 
már ezt az elemet tekinti L kiválasztottnak, a legkisebbnek. 
Amikor a rendezetlen tábla végére ér, a megjegyzett L index az adott menetben kivá- 
lasztható legkisebb R$ elem indexe lesz. Ekkor az általa meghatározott táblaelem adatait, 
az R$ rendszámot, a T sávcímet és a B szektorcímet átmásolja a rendezetlen táblából az 
új táblába: 
1219 : KEÁR/(Is5-kgrL s 

agyak a Ja S LB Kt peda éti 49 1 dl MGO ER 
lzökb : BE /lszE (l/ 


Gondoskodik arról, hogy a következő menetben ne ugyanezt a táblaelemet találja leg- 
kisebbnek, azaz a rendszámot átírja a legnagyobb értékre, a P$ Tr karakterekre: 


izda : Rá$ (LizFá 


Az új táblában, a rendezett indextáblában azonban nem lehetnek az üres helyeken Tr ka- 
rakterek. A karbantartó program ugyanis csillagokat vár. Ezért ha az új táblába ilyen elem 
kerül, akkor ezen elemnél vissza kell állítani a C$ csillagokat: 


11-28 : IF RE$-losFái THEH KEFÜlsstE 
A ciklus itt befejeződik: 
1293 MEST I 


A szubrutin visszaadja a vezérlést a hívó programnak: 
13537 KETIIKH 


A csökkenő sorrend szerinti rendezés pontosan ilyen, de itt nem kell a csillagokat kicse- 
rélnünk és visszacserélnünk, továbbá természetesen nem a legkisebb, hanem a legnagyobb 
elemet kell az új táblába áttölteni, így a régi táblából is a legnagyobb elemet kell kivá- 
lasztanunk — ennek megfelelően a hasonlítás is fordítva történik: 


zHig Adi Izi Tú 348 


-zözk L:1 
zliúb : FÜKk JIsz TŰ 38 
zilm : : . IF k$g-JosRárL. THEM L:s1 


2199 : MEXT J 
2218 :  RR$(CISSRE(LI 
220 :  ÍT CIJAT CL) 


zzak : BB (I.E (L) 
zzda R$ (Ls5zt$ 
2239 HEX TT I 


2733 KETURH 


Figyeljünk fel arra, hogy a rendezőeljárás nem magát a legnagyobb (vagy legkisebb) R$ 
rendszámot jegyzi meg, hanem annak csak az L indexét. Így a táblába való betöltéskor 
a sávcímet és a szektorcímet nem kell keresnie a régi táblában, hanem közvetlenül elér- 
heti őket a megjegyzett L index alapján. 
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Ennek további előnye, hogy a tábla rendezése nem a táblaelemek cserélgetésével valósul 
meg, ami lényegesen növelné a rendezés (amúgy is hosszú) idejét. 

A begépelt rendezőprogramot mentsük ki a lemezre INDEXRENDEZ néven, majd bátran 
kipróbálhatjuk, sikertelen rendezés esetén sem romolhat el az indextáblánk. 

A program elindítása után kérjünk csökkenő sorrend szerinti rendezést. A képernyőn 
összehasonlíthatjuk a rendezetlen és a rendezett indextáblát: 


tikikám dí  FEFEE keénösdéb d ő 

tttkkk o ] 01LDde gek ab. 

tétttt I] BEZ- kb b dő 

t€tittkti ] HAIill LE dt d nd ú 

Ettitx o [/ $ktkkk ae aj de ge ae E 

tettktr o [ / $ktEkik oka ae fr ak 

tetkkk o [/ KEK d kett d ib ső 

jak tttikk o ] 0 0kkkik a ara s nr ee 

ketes ttrkkk  ] keesessk pb b ih bd 

fee á ak mrerkkk [0 kkkkökk tk dik 

tett ar ktitir  ]  ktkkik ták kk 
tátktk kerik [o o $tkkttt 
töke etetik [  $kkkkkk 
titeket ttttktk  ! o kktkkk 
kek árak kttrték io kkkkkák 


MEHET szl/Mzso7 HM 


A , MEHET?" kérdésre adjunk nemleges választ, majd indítsuk újra a programot úgy, 
hogy most már növekvő sorrendben rendezzen. 
Ha a képernyőn hibátlanul megjelenik a rendezett állomány, a , MEHET?" kérdésre ad- 


junk igenlő választ. 
Javasoljuk, hogy ezután töltsük be és futtassuk lea RANDOMSOROS programot január- 


tól decemberig tartó intervallumra: 


e" Mert TTELJESÍTHMENY EK káld 


A HOHAPTUL 19. HUHAPIG 


53 


Így meggyőződhetünk arról, hogy noha a rendezőprogram a random állomány rekord- 
jaihoz hozzá se nyúlt, a soros feldolgozóprogram mégis rendezett listát állít elő. Az index- 
táblás rendezésben éppen az a szép, hogy nem az állomány rekordjait rendezzük, hanem 
az indextáblát, amelynek bejegyzései lényegesen rövidebbek a rekordoknál. 
Megjegyezzük, hogy nem az itt bemutatott rendezési eljárás az egyetlen, és nem is feltét- 
lenül ez az optimális megoldás. Kiválasztásában nem gyakorlati, hanem didaktikai szem- 
pontok vezettek. 

A rendezett indextábla egyik legelőnyösebb tulajdonsága az, hogy benne nemcsak lineári- 
san lehet keresni, mint a rendezetlen állományokban, hanem a rendezett állományokra 
jellemző keresési eljárások is használhatók. (Ezekkel a , SOROS LEMEZÁLLOMÁNYOK" 
című kötetben foglalkoztunk.) Ha a rendezett indextábla a tárban van, optimálisabb ke- 
resési algoritmusokat is alkalmazhatunk. Ezekkel a random állományok rekordjainak 
közvetlen elérése rendkívül meggyorsítható; hiszen minden egyes rekord elérése előtt 
szükség van az indextáblában a rekord címének megkeresésére. Ilyenkor persze gondosan 
ügyelnünk kell arra, hogy a tábla rendezéttsége a feldolgozás, például a karbantartás 
közben ne romolhasson el. Ez természetesen bizonyos mértékig kényelmetlenebbé teszi 
a tábla kezelését. Ha választási lehetőségünk van, minden alkalommal meg kell fontol- 
nunk, hogy a keresés meggyorsulásából származó előny elegendő-e a kezelés bonyolult- 
ságának kiegyenlítésére. 

Felhívjuk a figyelmet arra, hogy a példában használt megoldás az úgynevezett teljes in- 
dexelés. Ez azt jelenti, hogy minden rekordhoz tartozik bejegyzés az indextáblában. 
Készíthető és használható azonban olyan indextábla is, amely nem minden rekord azono- 
sítóját és címét tartalmazza, hanem mondjuk csak minden tizedikét. A közbülső rekor- 
dok címét ilyenkor a táblában szereplő szomszédos rekordok címéből kell előállítani. 
Ehhez persze megfelelő kulcseloszlás, rendezettség és címképzési eljárás (például inter- 
poláció) szükséges. 

Végezetül érdemes még megemlíteni, hogy a bemutatott program úgynevezett egyszintű 
indexeléssel dolgozik, vagyis az indextáblában lévő cím közvetlenül a rekordra mutat. 
Az indextáblák hátránya, hogy általában akkor kezelhetők kényelmesen, ha a tárban van- 
nak — a tár azonban véges; nagyobb állományok indextáblái nem férnek el benne. 
Ilyenkor az egyik sikeres megoldás az indextábla feldarabolása lehet. A gépkocsik eseté- 
ben például megtehetjük, hogy nem egy, hanem 26 indextáblát hozunk létre, külön egyet 
az A-val, egyet a B-vel, és így tovább, egyet a Z-vel kezdődő rendszámú gépkocsik részére. 
Ezek közül csak azt az egyet tartjuk a tárban, amelyikre az adott rendszámú gépkocsi 
címének megkereséséhez szükségünk van. Minthogy a megfelelő indextábla használat 
előtti betöltése, majd használat utáni kimentése időigényes, ez a megoldás akkor gazda- 
ságos, ha egy-egy indextáblát hosszabb ideig használhatunk, például ha a gépkocsik fel- 
dolgozása rendszám szerint rendezett. 

Egy másik megoldás lehet az úgynevezett többszintű indexelés, amikor is két indextáb- 
lánk van: az egyik a rekordazonosítókat és a hozzájuk tartozó címeket tartalmazza, még- 
pedig rendezetten; a másik, általában jóval kisebb indextábla pedig azt tárolja, hogy az 
egyes rekordcsoportok a , nagy" indextábla mely részében találhatók. 

A gépkocsik esetén ez utóbbi indextábla például 26 elemű lehet, ahol az első elem meg- 
határozza, hogy az A betűvel kezdődő rendszámú gépkocsik bejegyzései hányadik elem- 
től hányadik elemig töltik ki a , nagy" indextáblát; a második elem ugyanilyen informá- 
ciót tartalmaz a B-s rendszámú gépkocsikról; és így tovább, egészen Z-ig. Ekkor állandóan 
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bent tartjuk a tárban a , kis" indextáblát, valamint a , nagy"-nak mindig csak azt a részét, 
amelyet az előbbi a rekordazonosító szerint meghatároz. A betöltésből, kimentésből 
származó időveszteséggel természetesen itt is számolnunk kell. Emellett bonyolítja a 
helyzetet, hogy a két indextáblát mindig egymással összhangban kell módosítanunk. 
(A bonyolultabb indextáblákkal a relatív állományok tárgyalásakor még foglalkozunk.) 


TT A random szervezési mód alapja az, hogy a lemezen lévő blok- 
halenáptáosáákszáááátezátálatt kok mindegyike egyértelműen azonosítható annak a sávnak 
ÖSSZEFOGLALÁSA és szektornak a címével, amelyen elhelyezkedik. 
————,—— , e Amit random állománynak nevezünk, valójában nem más, 
mint a lemezen elszórt blokkok pusztán logikailag összetartozó együttese. 

A random szervezésű állomány legfeljebb 664, egyenként 256 bájt méretű blokkból áll- 
hat. Ezen blokkok egymástól függetlenül és közvetlenül elérhetők, de a tartalmukhoz 
— akár felíráskor, akár beolvasáskor — csak pufferen keresztül lehet hozzáférni. Maga az 
állomány azonban, mint egység, nem kezelhető. 

A random állományt sem létrehozni, sem törölni, sem megnyitni, sem lezárni nem lehet. 
Neve nincs, és a lemez tartalomjegyzékében sem szerepel. Így random állománykezelő 
parancsok sem léteznek. A blokkokat és a puffert azonban külön lemezparancsokkal, 
illetve utasításokkal kell kezelni. 

Egy lemezen akárhány random állomány lehet, akár úgy is, hogy egy-egy blokk egyidejű- 
leg több random állománynak is eleme. 

A random állomány kezeléséhez mindig két csatornát kell nyitva tartanunk: a parancs- 
csatornát és egy adatcsatornát, a blokk-kezelő parancsok, illetve a puffer számára. 

Az alábbiakban összefoglaljuk a random állomány kezelésével kapcsolatos utasításokat. 


OPEN: a csatornák megnyitása 


OPEN állomány, egység, parancscsatorna 
OPEN állomány segység,adatcsatorna, "puffer" 


Hatása: megnyitja a parancscsatornát, majd a megadott puffer számára kijelölt adatcsa- 
tornát is. Például: 


OPEN 15,8,15 
OPEN 3.83, §2" 
OPEN 4.84," 


A puffert O-tól 2-ig terjedő sorszámmal azonosíthatjuk. Ha nem adunk meg sorszámot, 

akkor a puffert a lemezkezelő rendszer automatikusan jelöli ki. 

BLOCK—-ALLOCATE: blokk lefoglalása az állomány számára 
PRINT$15,"B—A:"O;sáv;szektor 


Hatása: a lemeztérkép alapján megállapítja, hogy a megadott címen lévő blokk szabad-e, 
avagy már foglalt. Ha szabad volt, lefoglalja és feljegyzi a lemeztérképre. Például: 


PRINTZ15,"B—A:"0;21;13 


A blokk állapotát a parancscsatornáról olvashatjuk le. 
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INPUT: a parancscsatorna olvasása 
INPUT315 hibakód, hibaüzenet, sáv, szektor 


Hatása: ha a blokk szabad volt, akkor 0 hibakódot, "OK" hibaüzenetet, 0 sávcímet és 
0 szektorcímet kapunk. Ha viszont foglalt a blokk, akkor a hibakód 65, a hibaüzenet 
"NO BLOCK" lesz, a sávcím és a szektorcím pedig a legközelebbi magasabb című szabad 
blokk helyét adja meg. Sikertelen művelet (hibás, rosszul behelyezett, megtelt lemez 
stb.) esetén a hibának megfelelő kódot és üzenetet kapunk. Például: 


INPUT315 H,H$ SA SZ 
A parancscsatorna csak BLOCK—-ALLOCATE parancs után szolgáltatja ezeket az értéke- 
ket; más esetben a már ismert, szokásos módon működik. 
BLOCK-—FREE: lefoglalt blokk törlése 
PRINT$15,"B—F:"0;sáv; szektor 


Hatása: törli a blokk foglaltságát jelző bitet a lemeztérképről, de magát a blokkot nem. 
Ezzel azonban a blokk már felszabadul, nem tartozik többé a random állományhoz. 
Például: 


PRINTZ15,"B—F:"O;TR;BL 


Téves sáv- és szektorcím megadása esetén a random állományhoz nem tartozó blokkot, 
azaz más állomány blokkját is törli, ha az foglalt volt. 


PRINT: a puffer feltöltése adatokkal 
PRINT3tállomány, adatok 


A puffer tetszőlegesen tölthető fel adatokkal a soros állományoknál szokásos PRINT 
utasítással. Például: : 


PRINT:33, A$;S$;A96 ;S$ ; A 


A lemezre mindig a puffer aktuális tartalma kerül. Ezért a lemezre írandó adatokat a 
lemezrevitel előtt mindig a pufferba kell betölteni, abban a formában, amilyenben a le- 
mezen lévő blokkban tárolandók. 


BLOCK—WRITE: blokk felírása a lemezre 
PRINT$4$15,"B—W: "csatorna ; O ; sáv ; szektor 


Hatása: az adott csatornához rendelt puffer aktuális tartalmát felírja a lemez megadott 
sávjának megadott szektorára. Például: 


PRINT$15,"B—W:"3;0;SA;SZ 


Ha a megadott cím létezik, mindig felírja a blokkot, akár szabad a helye, akár már lefog- 
lalta más állomány (például a lemez tartalomjegyzéke) . 


56 


BLOCK-READ: blokk betöltése a lemezről 
PRINTZ15,"B—R: "csatorna; O;sáv ; szektor 


Hatása: az adott címen lévő blokkot betölti a megadott csatornához rendelt pufferbe, 
ha a blokk nem szabad. Például: 


PRINT3£15,"B—R:" 3;0;16:;12 


A foglalt blokkot akkor is betölti, ha nem a random állományhoz tartozik. 


INPUT: adatok olvasása a pufferből 
INPUT:tállomány, változók 


A pufferba betöltött adatok a soros állományoknál szokásos INPUT utasítással olvasha- 
tók ki a pufferből. Például: 


INPUTH3,A$,A9 A 


GET: bájt olvasása a pufferből 
GETstállomány karakteres változók 


A pufferba betöltött bájtok a soros állományoknál szokásos GET utasítással olvashatók 
ki a pufferből. Például: 


GETHH3B$ 


BUFFER-POINTER: bájtpozíció beállítása 
PRINT315,"B-—P:"csatorna ; pozíció 


Hatása: a soron következő pufferba írás, illetve pufferből olvasás az adott csatornához 
rendelt puffer megadott bájtpozíciójánál fog elkezdődni. Például: 


PRINTÉ15,"B—P:"3;123 

A bájtpozíció O és 255 között állítható. Segítségével egy blokkba több rekord is fel- 
vihető, illetve a blokk adatai közvetlenül is elérhetők. Ha a pozíciót nem állítjuk be, 
értéke mindig az utolsó beírt vagy kiolvasott bájtot követő  bájtpozíció; új blokk esetén 
ennek megfelelően mindig 0. 

CLOSE: a csatornák lezárása 


CLOSE állomány 


Használat után a csatornákat a szokásos módon le kell zárni. 


Először mindig a puffer csatornáját, majd a parancscsatornát. Például: 


CLOSE 3 
CLOSE 15 
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A random állomány kezelésének azonban sajátos logikája van. Nem maguk a fenti utasí- 
tások a nehezek, hanem az, hogy közülük mikor, melyiket, milyen sorrendben és milyen 
paraméterekkel használjuk. Mindezekről a mintaprogramoknál már volt szó, de itt is ösz- 
szefoglaljuk a random állománykezelés sajátosságait. 

Alapvetően a három fő funkcióból kell kiindulnunk: a blokk felviteléből, beolvasásából 
és törléséből. 


— FELVITEL esetén 


BUFFER-POINTER: a puffer mutatójának beállításával meghatározhatjuk a puffer azon 
bájtját, amelytől a feltöltése elkezdődhet. 

PRINT: tetszőleges adatokkal feltölthetjük a puffert vagy a mutató beállításával kiválasz- 
tott részét. 

BLOCK—-ALLOCATE: lefoglalhatjuk a lemez egy blokkját; ennek sávcímét és szektor- 
címét tetszőlegesen határozhatjuk meg. 

INPUT: a parancscsatornáról leolvashatjuk, hogy a blokk lefoglalása sikeres volt-e, avagy 
sem; és ha nem, megkaphatjuk a legközelebbi szabad blokk címét. 

BLOCK—WRITE: a lefoglalt blokkba felvihetjük a puffer aktuális tartalmát. 

INPUT: a parancscsatorna lekérdezésével meggyőződhetünk a blokk felírásának sikeres- 
ségéről. 


— BEOLVASÁS esetén 


BLOCK-READ: a tetszőlegesen megadott sávcímen és szektorcímen elhelyezkedő blokk 
tartalmát betölthetjük a pufferba. 

INPUT: a parancscsatorna lekérdezésével meggyőződhetünk a lemezolvasás sikerességéről. 

BUFFER-POINTER: a puffer mutatójának beállításával meghatározhatjuk a puffer 
azon bájtját, amelytől az olvasás elkezdődhet. 

INPUT, GET: a puffer tartalmát vagy a mutató beállításával kiválasztott részét adaton- 
ként vagy bájtonként olvashatjuk. 


— TÖRLÉS esetén 


BLOCK-—FREE: a lefoglalt blokk felszabadításával törölhetjük a random állomány tet- 
szőleges blokkját. 

VALIDATE: a lemez tömörítésével (újraszervezésével) törölhetjük a random állomány 
(egyben a lemezen lévő minden random állomány) összes blokkját. 


A parancscsatorna figyelésével kapcsolatban megjegyezzük, hogy blokk felírása, azaz 
BLOCK—WRITE előtt feltétlenül hajtsunk végre BLOCK-ALLOCATE parancsot, majd 
olvassuk be a parancscsatornáról a hibakódot, és ennek értékétől tegyük függővé az írás 
végrehajtását. 

A parancscsatornán elérhető hibakód és hibaüzenet vizsgálata más lemezműveletek után 
is célszerű lehet, minthogy hiba bárhol előfordulhat. Ezek hatása azonban legtöbbször 
, Csak" annyi, hogy a program hibás eredményt állít elő vagy futása megszakad. A hiba- 
vizsgálat igazán a blokk felírásakor fontos, hiszen ez az a művelet, amely igazi katasztró- 
fát tud okozni azzal, hogy felülírhatja a lemezen lévő bármely állományunkat, progra- 
munkat, sőt magát a lemez nyilvántartását (a lemeztérképet vagy a tartalomjegyzéket) is; 
így akár a teljes lemezt használhatatlanná tehetjük. 
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Végül következzék néhány megjegyzés az indextábla, illetve a random állományok hasz- 
nálatához. 

Az indextáblának valójában semmi köze a random állományhoz, amely nélküle is kezel- 
hető. Az indextábla csupán egy hasznos segédeszköz, mely lehetővé teszi annak az egy- 
értelmű számontartását, hogy melyik rekord melyik blokkon van, és megfordítva, hogy 
melyik blokk melyik rekordot tartalmazza; így a blokk kiválasztását teljesen a gépre bíz- 
hatjuk, azaz minden rekordot a lemezkezelő , keze ügyébe eső" első szabad blokkra 
írhatunk. 


Indextábla nélkül a kulcskérdés a rekord és a blokk egymáshoz rendelése. Ha sikerül 
megoldanunk, hogy a rekordokhoz később megismételhető módon ki tudjunk választani 
egy blokkot, akkor a rekordot erre a blokkra bátran felvihetjük, mert később ugyanezzel 
a kiválasztással meg is fogjuk találni. 


Egyébként az indextábla használata főleg akkor kényelmes, ha elfér a tárban. Ilyenkor 
ugyanis a karbantartása egyszerű, és közvetlen eléréssel megvalósítható. 

Ha az indextáblát a mérete miatt vagy más okból nem tudjuk a tárba tölteni, akkor fel- 
dolgozás közben is a lemezen kell tartanunk. Ilyenkor általában az indextáblának csak 
egy részét töltjük be a tárba, és feldolgozás közben ezt a betöltött részt szükség szerint 
cserélgetjük. Ez az indextábla karbantartását, de még a keresését is jelentősen lelassítja 
és körülményessé teszi. Ezért erősen meg kell fontolnunk, hogy ilyenkor nem érdeme- 
sebb-e egy másik állományszervezési módot választani. 

Megjegyezzük, hogy a példában bemutatott indextábla a lehető legegyszerűbb, mond- 
hatni a legprimitívebb. Ennél sokkal rafináltabb táblák is használhatók, amelyek gyor- 
sabb keresést tesznek lehetővé. A rendezett táblán kívül példaként csak egy érdekes táb- 
lát említünk meg: az úgynevezett önátrendező táblát, amelynek mindig az elején helyez- 
kednek el a leggyakrabban használt bejegyzések . 

Felhívjuk a figyelmet arra, hogy a random állományokkal úgynevezett listaszerkezetek 
is megvalósíthatók, tehát ez az állományszervezési mód messze túlmutat az egyszerű 
adatfeldolgozás keretein." 


A random állományok lehetőségei más tekintetben is nagyobbak a mintapéldákban be- 
mutatottnál. Egyrészt abból, hogy a példákban egy rekordot egy blokkra vittünk, nem 
következik az, hogy egy blokkra nem vihető fel több rekord. Ha gondoskodunk arról, 
hogy a blokkon lévő rekordok egymástól megkülönböztethetők legyenek, és megoldjuk, 
hogy egyik rekorddal se tudjuk véletlenül felülírni a blokkon már fent lévő másikat, 
akkor nincs elvi akadálya, hogy egy blokk logikailag több rekordból álljon. Márpedig 
mindez, ha körülményesen is, de megvalósítható. 

A legegyszerűbb esetben, ha minden rekordunk azonos hosszúságú, a megoldás nem is 
bonyolult, hiszen a puffer mutatójának (BUFFER-POINTER) beállításával könnyen 
elérhetjük, hogy minden rekord a neki megfelelő pozícióra kerüljön. A dolog azért még- 
sem ilyen egyszerű. Ugyanis egy blokk egyidejűleg tartalmazhat feltöltött, üres és törölt 
rekordot is, így a blokk és a rekord állapota nincs összhangban. Ezért amikor egy rekord 


"Akit bővebben érdekelnek a leképezési eljárások, a táblák és listaszerkezetek kezelésének lehetőségei, 
az utánanézhet Mérey András , Adatszerkezetek " című könyvében (SZÁMOK, Budapest, 1979), illetve 
Bodor Tibor , Adatszerkezetek 1—IV." című oktatófilm-sorozatában (SZÁMOK, Budapest, 1981). 


59 


számára szabad helyet keresünk, nem hagyatkozhatunk kizárólag aBLOCK—ALLOCATE 
parancsra, hanem a foglalt blokkban is meg kell tudnunk találni az üres vagy törölt re- 
kordhelyeket. 

Megjegyezzük, hogy a puffer mutatóját nemcsak a rekord elejére állíthatjuk be, hanem 
akár minden egyes adat elejére is; feltéve persze, hogy tudjuk az adat pozícióját. Ilyen- 
kor a blokk minden egyes adata, sőt GET utasítással való olvasás esetén minden egyes 
bájtja közvetlenül elérhető, mégpedig tetszőleges sorrendben és akárhányszor, hiszen a 
mutató visszafelé is állítható. 

Ugyancsak nem következik a példákból, hogy a rekord mérete nem haladhatja meg a puf- 
fer, illetve a blokk méretét. Természetesen több adat nem írható egy blokkra, mint 
amennyi elfér benne, de semmi akadálya sincs annak, hogy a rekordunk egy része egy 
bizonyos blokkon, a másik része pedig egy másik blokkon legyen. Ez csak szervezés 
kérdése, tehát megoldható, noha ugyancsak nem egyszerűen. 

Az sem igaz, hogy egy lemezoldalon csak egyetlen random állomány lehet. Valójában 
akárhány állományt létrehozhatunk, hiszen az amúgy is csak egy logikai egység. Más kér- 
dés, hogy miként tartjuk számon, hogy melyik blokk melyik állományhoz tartozik, és 
miként oldjuk meg, hogy az egyik állomány kezelésekor ne sértsük meg a másik blokkjait. 
Ugyanis egy blokk egyidejűleg akár több random állományhoz is tartozhat. Ez csak le- 
képezés kérdése. A lemezkezelő számára egyetlen random állomány sem létezik: csak 
foglalt és szabad blokkokat ismer, más különbséget nem tesz blokk és blokk között, 
ha nem tartozik bejegyzett állományhoz, programhoz vagy a lemeznyilvántartáshoz. 
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A relatív állományok kezelése 


A relatív állományszervezési mód arra az alapelvre épül, hogy egy azonos méretű elemek- 
ből álló tárolóegységen belül minden egyes elem helye egyértelműen meghatározható 
a kérdéses elem sorszámával. Ezt használja ki a tárkezelő, amikor megengedi, hogy a tár- 
ban egydimenziós tömböket, vektorokat hozzunk létre. 


Meg kell adnunk a tömb méretét, például a DIM T(8) utasítással. Amikor egy tömb- 
elemre a sorszámával hivatkozunk (például az A - T(3) utasításban), akkor a tárkezelő 
ahelyett, hogy a tárban keresné, a tömb kezdőcíméből, az elem sorszámából és az elemek 
hosszából kiszámítja az adott tömbelem címét. Így a tömb elemei közvetlenül el- 
érhetők. 


Hasonló adattárolási módot tesz lehetővé a lemezen a COMMODORE lemezkezelője 
(17. ábra): 


17. ábra. Relatív állomány 
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Itt egy alkalmasan előkészített lemezterületet kell létrehozni, amely azonos méretű re- 
kordokra oszlik. Ez az úgynevezett relatív állomány. Ennek létrehozásához természete- 
sen meg kell adnunk a rekordok számát és méretét. A rekordjaink közvetlen eléréséhez 
a lemezkezelő ugyanazt az alapelvet használja ki, mint amelyre a tárkezelő is támaszko- 
dott a tömbelemek elérésekor. 


FIGYELEM! 

Csak az alapelv azonos, a végrehajtás módja egy kicsit bonyolultabb, Ugyanis a rekordok által elfoglalt 
lemezterület nem feltétlenül folytonos. Könnyen belátható, hogy már az állomány létrehozásakor sem 
mindig biztosítható, hogy a megfelelő méretű lemezterület össefüggő legyen; de ha ez sikerül is, az 
végképp nem garantálható, hogy az állomány bővülésekor a lemezterület folytonossága megmaradjon, 
A lemezkezelőt felkészítették arra, hogy az állomány különböző helyen tárolt szektorait és ezek sor- 
rendjét nyilvántartsa, így a relatív állomány számunkra olyannak látszik, és úgy is kezelhető, mintha 
a rekordok folyamatosan követnék egymást. 


Ha megadjuk egy rekord sorszámát, akkor a lemezkezelő, minthogy tudja az állomány 
kezdőcímét, valamint a rekordok hosszát, egyszerűen kiszámítja a rekord fizikai helyét 
a lemezen. Felíráskor ide viszi fel a rekordot, beolvasáskor pedig innen veszi elő (18. 
ábra). 

A programozónak nem is kell tudnia, sőt ténylegesen nem is ismeri a rekord abszolút 
helyét. Hivatkozáskor csupán a rekordsorszámot kell megadnia, tehát a rekordnak csak 
az állomány kezdetéhez viszonyított pozícióját. (Innen származik a relatív elnevezés.) 
A többi már a lemezkezelő dolga. 

A lemez tárolási módja, valamint a lemezkezelő működési sajátosságai miatt tekintettel 
kell lennünk néhány megszorításra: 


— A relatív állomány mérete nem haladhatja meg a 167132 bájtot. 
— A rekordok hossza legfeljebb 254 bájt lehet, 
— Az állományban nem tárolható 65535-nél több rekord. 
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18. ábra. Relatív elérés 
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— Az állomány lemezterülete legfeljebb 720 blokkot foglalhat el. Ezt a korlátot a kis- 
lemezen természetesen nem tudjuk megsérteni, hiszen legfeljebb 664 szabad blokk 
van rajta. 


Ezzel szemben: 


— A relatív állomány rekordjaiból annyi helyezkedhet el egy blokkon, amennyi elfér. 
Így a lemezterület kihasználtsága igen gazdaságos. 

— A relatív állománynak nem kell a lemezen összefüggő területet elfoglalnia, mert a le- 
mezkezelő külön nyilvántartást vezet a relatív állományhoz tartozó blokkokról. 

— Az állomány számára kijelölt lemezterületet a lemezkezelő a fenti korlátokon belül 
szükség szerint automatikusan bővíti. 

— Megfelelő pozicionálással nemcsak a rekordok, hanem az adataik, sőt a bájtjaik is köz- 
vetlenül elérhetők. 


Az első két lehetőséget a lemezkezelő a programozótól függetlenül biztosítja. A második 
kettő kihasználása azonban már a programozón is múlik. 


A REKORDSORSZÁM Ha egy rekordra hivatkozni akarunk, meg keli határoznúnk, 
MEGHATÁROZÁSA hogy az állomány elejétől számított hányadik rekord, vagyis 
mu Ő 9 3" megkell adnunk a sorszámát. Ezt a műveletetta COMMODORE 
szóhasználatával pozicionálásnak is nevezzük. Végrehajtására külön utasítás van; ezzel 
majd egy példa kapcsán később fogunk megismerkedni. 

Most csak azzal foglalkozunk, hogy milyen formában kell a rekord sorszámát megadnunk. 
Ez ugyanis a szokásostól eltérő (lásd 19. ábra). 


RS 543 - dik rekord 


Pozicionaló bajtpar 


RL RH 19. ábra. A pozíció kiszámítása 


A rekordsorszámot két pozicionáló bájtra kell felbontani, és a pozicionáláskor a sorszám 
decimális alakja helyett ezeket kell használnunk, mégpedig úgy, hogy először az alacso- 
nyabb helyi értékű, úgynevezett alsó (low), majd a magasabb helyi értékű, úgynevezett 
felső (high) bájtot adjuk meg. 

A pozicionáló bájtok kiszámítása a rekordsorszámból egyszerű művelettel történik: 
az RH felső bájt értéke az RS rekordsorszám és a 256 konstans hányadosának egész 
része; az RL alsó bájt pedig a fenti osztás maradéka: 


18 PRIHT "7" 
z8 PRINT a 
ö IHPUT " REKORDSORSZAMz":RS 
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A művelet fordítva is elvégezhető: ha az RH felső bájtot megszorozzuk 256-tal, és a szor- 
zathoz hozzáadjuk az RL alsó bájtot, akkor az RS rekordsorszámot kapjuk: 
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Ezt is futtassuk le, az alsó és felső bájtoknak rendre (1.0); (0,1); (1,1); (2,1); (1,2); 
(2,2); (255 ,255); végül (0,0) értékpárt adva: 
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ez SIZE EE 

f) zt szde átt ki 
EHITS?T EÜ 


E mintaprogramok az irreális, azaz a negatív vagy a meg nem engedett magas rekord- 
sorszámokat, illetve az alsó és felső bájtokat nem fogadják el, így mindig korrekt ered- 
ményt adnak. Más hibavédelem azonban nincs beépítve, ezért ügyeljünk az adatok helyes 
begépelésére; ellenkező esetben a kiírás nem lesz áttekinthető. Különösen a második 
programnál ne feledkezzünk meg arról, hogy az alsó és felső bájtot egyszerre kell meg- 
adnunk, ebben a sorrendben és egymástól vesszővel elválasztva. 

Megjegyezzük, hogy az RH és RL pozicionáló bájtok tulajdonképpen 256-os számrend- 
szerben adják meg az RS decimális rekordsorszámot. Erre azért van szükség, mert a lemez- 
kezelő a rekordpozíciót fixpontos bináris formában kéri. Ez pedig a 256-os számrend- 
szerben felírt értékből CHR$(RLYCHR$(RH) alakban egyszerűen előállítható. 

A decimálisról binárisra való konvertálásról azért kell magunknak gondoskodnunk, mert 
a COMMODORE ugyan minden numerikus értéket automatikusan binárisan ábrázol, de 
csak 32767-ig fixpontosan; az ennél nagyobb értékeket már lebegőpontosan. 
Konverziónkkal a 65535-öt is fixpontosan tudjuk ábrázolni. Az eltérés oka az, hogy a 
gépi számábrázolás 1 bitet az előjelnek tart fenn, így a számjegyek ábrázolására csak 15 
bit marad. Konverziónk azonban a 16. bitet is értékes számjegyként használja fel. 
(Így negatív számokat nem tudunk ábrázolni, de amúgy is csak a pozitív rekordsor- 
számoknak van értelmük. Ugyanakkor nem kell a relatív állomány méretét 32767 rekord- 
ra korlátoznunk.) 


; A rekordpozíción kívül mind íráskor, mind olvasáskor meg kell 

A BÁJTPOZICIÓ ú ő 
. BEÁLLÍTÁSA adnunk a rekordon belül azt a bájtot, amelyen az adatok 
írása, illetve az adatok olvasása elkezdődhet. Így a rekord 

tetszőleges számú bájtja átléptethető. 


FIGYELEM! 

A rekordon belüli bájtok számlálása az általános szokástól eltérően nem O0-tól, hanem 1-től kezdődik, 
és elvileg 255-ig tart. Minthogy a relatív állomány rekordjainak hossza nem haladhatja meg a 254 báj- 
tot, a 255-ös bájtpozíciót nem használhatjuk ki, sőt — mint később látni fogjuk — értékes adatunk leg- 
feljebb a 253-as bájtra kerülhet még. 


Természetesen arra ügyelnünk kell, hogy a megadott bájtpozíció ne mutasson ki a tény- 
leges rekordterületről; vagyis például egy 132 bájtos rekordban nem pozicionálhatunk 
a 234. bájtra, noha ez formailag megengedhető lenne. 
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Említettük, hogy a relatív állomány csak meghatározott számú 
rekordból álló, előkészített lemezterületen hozható létre. 
Előfordulhat azonban, hogy ez a terület kicsinek bizonyul, vagy azért, mert rosszul be- 
csültük meg az állomány méretét, vagy azért, mert (önhibánkon kívül) , kinőtte" a le- 
mezterületet. 

Ez azonban nem korlátozza a relatív állomány használhatóságát. A lemezkezelő ugyanis 
a lemezterületet szükség szerint kiterjeszti, ha az állományba olyan rekordot akarunk 
felvinni, amely már nem fér el oda, vagyis amelynek sorszáma nagyobb, mint a létező 
állomány utolsó rekordjának a sorszáma (20. ábra). 


AUTOMATIKUS BŐVÍTÉS 


A kiterjesztés azt jelenti, hogy ha például egy állományunkban 10 rekord van, és mi 
mondjuk egy 15-ös sorszámú rekordot kívánunk felvinni, akkor a lemezkezelő létrehozza 
a 11-es, 12-es, 13-as és 14-es rekordokat, majd felírja a 15-ös rekordot. Így az állomány 
mérete automatikusan megnövekszik. 

Megjegyezzük, hogy az a blokk, amelyen a relatív állománynak akár csak egyetlen re- 
kordja is van, más állományokhoz már nem használható fel. Ezért a lemezkezelő mind 
létrehozáskor, mind bővítéskor teljesen feltölti üres rekordokkal a megkezdett blokkot 
akkor is, ha így a rekordok száma nagyobb lesz az általunk megadottnál. 

Most pedig lássuk a relatív állomány lemezterületének már eddig többször is említett, 
de még soha meg nem magyarázott előkészítését! 


Az előkészítés lényege, hogy a lemezkezelő annyi üres rekor- 
dot hoz létre, amennyit meghatározunk, és ezeket felviszi a 
lemezre. Ehhez persze a rekordok hosszát is meg kell adnunk 
(21. ábra). 


A RELATÍV ÁLLOMÁNY 
LÉTREHOZÁSA 


Megjegyezzük, hogy — mint már említettük — a megkezdett blokkok mindenképpen 
feltöltődnek, tehát a példánkban bemutatott állományba akkor is 9 rekord kerül, ha csak 
7 létrehozására adunk utasítást. Látható továbbá, hogy a szektor-, illetve sávhatárok 
a rekordokat nem befolyásolják. 

Ezekből az üres rekordokból áll tehát a relatív állományunk, amelyet a lemezkezelő az 
általunk megadott néven jegyez be a lemez tartalomjegyzékébe. 

Mit jelent azonban az, hogy egy rekord üres? Nyilvánvalóan nem azt, hogy légüres térrel 
van tele. Az általunk üresnek nevezett rekordokat a lemezkezelő egységesen alapértelme- 
zés szerinti karakterekkel tölti fel (22. ábra). 


Ez úgy értendő, hogy a rekord első bájtjára hexadecimális FF, vagyis az egy bájton ábrá- 
zolható legnagyobb érték (high value) kerül. Ez a CHR$(255) karakternek, a Tr jelének 
felel meg. A rekord összes többi bájtja pedig bináris nullákat, vagyis az egy bájton ábrá- 
zolható legkisebb értéket (low value) tartalmazza. Ennek megfelelő karakter nincs a jel- 
készletben. 

A relatív állomány létrehozásához szükséges információk tehát: 


— az állomány neve, 
— a rekordok mérete, 
— a rekordok száma, 
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8 9 10 15 


s AAJÉBÁ BÉRRE EIGHT 


Sorszam 20. ábra. Automatikus bővítés 


21. ábra. Az előkészített lemezterület 


CHR$ (255) 22. ábra. Üres rekord 


amelyeket egy külön erre a célra írt létrehozandó programban célszerű megadnunk. 
Minthogy minden relatív állományt ugyanúgy kell létrehozni, érdemes olyan programot 
írnunk, amellyel tetszőleges relatív állományt generálhatunk (23. ábra). 
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RELGENERALAS 


program 


G 


b E Bekéri az vé ú 
Bejelentkezik adatokat Kijelentkezik 
Az allomany A rekordok A rekordok A végjelet 

nevet hosszat szamat 


23. ábra. Relatív állomány létrehozása I. 


Ahol a befejezés csak akkor hajtható végre, ha a létrehozás során nem következett be hi- 
ba, azaz a H hibakód vagy kisebb 20-nál, vagy éppen 50. Az 50-es hibakód szerepéről 
később még lesz szó. Most elegendő annyit tudnunk róla, hogy létrehozáskor ez az érték 
valójában nem jelent hibát (24. ábra). 


A létrehozás lényege egy rekord felvitele az állományba, természetesen megfelelő pozi- 
cionálás után. Ez határozza meg az állomány méretét. 


A létrehozásban kulcsszerepe van a megnyitásnak, ahol az állományra vonatkozó infor- 
mációkat közöljük a lemezkezelővel. A megnyitástól kezdve az összes többi lépést nyil- 
vánvalóan csak akkor érdemes végrehajtanunk, ha a korábbi lépések mindegyike sikeres 
volt. Ezért van szükség a gyakori hibavizsgálatra. Hibának itt is csak azt tekintjük, ha a 
parancscsatornáról beolvasott H hibakód 19-nél nagyobb, de nem 50. 

A program először bejelentkezik: 


IGER THT Sa FRINMT PRINT 


182 FRIHT " a ugy 
a3 PRINT " 4 RELATIV ALLOMAHY LETREHOZASR Mi" 
PRINT " a um 


PRIHT:PRIHT 


LÉTREHOZ 


0 


CE TEA [EZ 


Hibavizsgalat HibavizsgalatÍ [ Hibavizsgalat Hibavizsgálat 


Hibaüzenet, Hibaüzenet, Hibaüzenet, Hibaüzenet, 
és ledll és leall és leall és leáll 


24. ábra. Relatív állomány létrehozása II. — LÉTREHOZ 


Majd bekéri a relatív állomány F$ nevét, természetesen kizárva, hogy az üres legyen, 
vagy hogy 16 karakternél többet tartalmazzon: 


118 FEIHT 

111 IHEUT " 4t£8 ALLCHAHY HEVE zö.Fdg 
liz LsLEHEF$ s 

Hit: IF Líi THEMLGÜTŰŐ 111 

lid : IR L-i1iE THEH GÜTÚ 111 


Bekéri az R rekordhosszt, amely elvileg 1 és 254 közötti érték lehet (természetesen 
minden egyes rekord azonos hosszúságú a relatív állományban) : 
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Tt FKINT 

izi IÍIMFLIT " 348 FREKORBO HOSSZA sz" EF 
122 : IF REI THEM GOTÜ 121 

HERGEST IF Eocződ THEH GÜTŰ 121 

izd KSIMT-EK. 

A rekordméret ismeretében a program bekéri a rekordok S számát: 
18 PRIMT 

e Bs [HEINT OO" kB BEKORIMIK —-- AHHH zs 
1) : 1 Bi szitát THEN GOT 131 
i IF THEN GÜTÜ 131 
Hi LF THEM RTO 3ai 


isz ossiNT-: 


A létrehozást csak akkor hajtja végre, ha a rekordméret függvényében a rekordok száma 
nem sérti. a relatív állományokra kirótt korlátozásokat. 

Végül meghatározhatjuk azt az egybájtos V$ jelet, amely az általunk felírt, egyetlen nem 
üres rekordba fog kerülni: 


1341 FRIHT 


(1 IHELT OO" o GEM VEGJEL zü.vs 
isLEHiE 
éz 4 THEN GÖTŰ 151 


A program csak ekkor kezdi el a létrehozás előkészítését, amelynek során először kiszá- 
mítja az állomány általunk utolsónak tekintett rekordjának pozícióját: 

zött RHSIHTEZez 

z8l FL-3-R 


Majd megnyitja az állományt: 


24 ÜPEN 18.615 
öz PEN 2582 F$t" Lo. ötÜHEFÁÉR I 


Minthogy a pozicionáláshoz és a hibalekérdezéshez szükség lesz a parancscsatornára, 


először is azt kell megnyitni. 
Ezután következik magának a relatív állománynak a megnyitása létrehozásra, ami a szo- 


kásos módon kezdődik: 


— Először megadjuk az állományazonosítót (2), a lemezegység számát (8) és az állomány 
számára lefoglalt adatcsatornát (2). 

— Ezután közöljük az állomány nevét (F$). 

— Majd egy L betű következik, amellyel meghatározzuk hogy most nem soros, hanem 
relatív állomány megnyitásáról van szó, éspedig létrehozásra. 

— Végül bináris formában meg kell adnunk a rekordméretet (R). 


Ezen információk hatására hozza létre a lemezkezelő a lemez tartalomjegyzékében a 
szükséges bejegyzéseket, valamint a relatív állomány későbbi kezeléséhez nélkülözhetet- 
len nyilvántartást. 
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A megnyitás sikerességét külön hibarutin vizsgálja meg, amely a megadott paraméterek 
alapján a hiba L helyét és a sikertelen L$ funkciót is megadja: 


zz8 Lezzá: LEz"ÜFPEM ": GOSUB 1818 


Az OPEN utasításban is látható, hogy a numerikus értéket a CHR$ függvénnyel alakít- 
hatjuk át bináris formára. Ehhez a konverzióhoz, ellentétben a rekordsorszámmal, a re- 
kordméretet nem kell felbontanunk, hiszen az értéke 256-nál mindig kisebb. 

A sikeres megnyitás azonban nem hozza létre az előkészített lemezterületet, azaz nem írja 
fel a megfelelő számú üres rekordot a lemezre. Most következik tehát az állomány tény- 
leges létrehozása. Minthogy az állomány méretét a benne tárolandó rekordok száma 
határozza meg, a program pozicionál az általunk korábban megadott maximális R rekord- 
sorszámra: 


zdú PRIMHTHIZ. "FSZ HEFRÉZ IC HEEÉ ELS CHER EHIL HET 1: 


38 Lszdá: LáZ"FPÜZITY: GOSUE i8181 


de 


A pozicionáló információkat a random állományoknál megismert állománykezelő infor- 

mációkhoz hasonlóan a parancscsatornára szóló PRINT utasításban kell kiadnunk: 

— Először a  pozicionálást meghatározó kulcsszó jön, amelynek eredeti alakja 
(POSITION) helyett gyakran a rövidített formáját (P) használjuk. 

— Ezután következik a relatív állományhoz rendelt adatcsatorna száma (2), bináris alak- 
ban megadva. 

— Ugyancsak bináris alakban, két egymást követő bájton kell megadnunk a rekord R 
sorszámát, mégpedig először mindig az alsó (RL), utána pedig a felső (RH) bájtot. 
Ezeknek egyike sem hagyható el, még akkor sem, ha az értéke nulla lenne. A két bájt 
együttesen határozza meg, hogy melyik rekordot kell a lemezkezelőnek létrehoznia. 

— Végül szintén bináris formában meg kell határoznunk a rekord azon bájtpozícióját 
(1), amelyen a rekord feltöltésének kezdődnie kell. Ez az információ sem hiányozhat 
a pozicionálásból. 


Természetesen a program a pozicionálás sikerességéről is meggyőződik a hibarutin behí- 
vásával, és csak akkor megy tovább, ha nem volt hiba. 

A pozicionálás hatása az lesz, hogy a lemezkezelő megkeresi a lemezen a megadott rekor- 
dot. Minthogy az állomány még nem létezik, nem fogja megtalálni. (A hibarutin ilyenkor 
50-es hibakódot és "RECORD NOT PRESENT", azaz ,,a rekord az állományban nem 
található" hibaüzenetet ad. Esetünkben ez azonban nem hiba.) A lemezkezelő felkészül 
arra, hogy a rekordot létre kell hoznia, de még nem teszi meg, mivel nem tudja, hogy 
létre akarjuk-e hozni a rekordot, vagy csak lekérdezni szerettük volna. Azt sem tudja 
még, hogy ha létre kell hoznia, akkor milyen adatokat tegyen bele. 

A programban a pozicionálást egy lemezreíró (PRINT) utasítás követi. Ebből a lemez- 
kezelő számára nyilvánvalóvá válik, hogy nem olvasni, hanem írni akarunk; a rekordot 
tehát létre kell hoznia, és az utasításban felsorolt változók a rekord tartalmát is megha- 
tározzák. 

zrő FRIHTHZ. 48 

2538 Lszytü: LEZSFKIHTS: GÜSWE 1HiA 
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A rekord tartalma a létrehozás szempontjából közömbös, akármilyen információt tárol- 
hatunk benne. Mi általános generáló programot kívántunk létrehozni, ezért valamilyen 
semleges, illetve az állomány végére utaló V$ adatot adtunk meg. Ez a megadott sorszámú 
rekordba a pozicionáláskor beállított bájtra kerül; vagyis esetünkben az első bájtra. 

A PRINT utasítás hatása nem egyszerűen a rekord felírása lesz. A lemezkezelő ugyanis 
az 50-es hibakód alapján (RECORD NOT PRESENT) már a pozicionálás óta tudja, hogy 
a rekord számára nincs hely az állományban. Úgy viselkedik tehát, mintha az állományt 
kiterjesztené, azzal az eltéréssel, hogy most az OPEN utasításból tudja, hogy létrehozás- 
ról szó, így nem az utolsó létező rekordtól, hanem az első rekordtól tölti fel az állományt 
üres rekordokkal, egészen a megadott sorszámig; majd felírja a PRINT utasításban meg- 
adott adat tartalmával feltöltött utolsó rekordot is. Ezzel létrejön a relatív állomány ke- 
zeléséhez szükséges lemezterület. j 

A művelet sikerességéről illik a hibakezelő rutin aktivizálásával meggyőződni. Ha a prog- 
ram a létrehozás eddigi menetét kielégítőnek találja, lezárja az állományt, a parancscsa- 
tornával együtt: 
318 ÜLÜSE 
320" ELÜSE 13 

A lezárás hatására vezeti rá a lemezkezelő az állományhoz felhasznált blokkok foglalt 
jelzését a lemezen tárolt lemeztérképre, és ha szükséges, karbantartja a relatív állomány 
blokkokról készített saját nyilvántartását is. 

A program ezek után kijelentkezik, és leáll: 


2319 PRIHT:FRIHT:PRINT 


PRINT " marni 
PRINT " 4 LETREHOZYA B!" 
a48 PRIHT " a Hi 


agg EH 

A gyakran hívott hibarutin lekérdezi a parancscsatornát, és hiba esetén a kapott para- 
méterekből megfelelő hibaüzenetet állít össze, megadva a lemezkezelő H hibakódját, 
H$ hibaüzenetét, a hiba előfordulásának L sorát, és a hibásan végrehajtódott vagy meg- 
szakadt művelet kulcsszavának L$ rövidítését; majd lezárja a csatornákat, és leállítja a 


IF H-zE THEH GÜT 
d. ÉHEN SEA TE 
EZÉS LO a As zá SERÉ a sz 5 sz elállt 


1 at 


Iz1 Tíl LEH-(E4: 


4 meszfrt ", 

HEAT I 
FRIHT:FRÍNT:FRIMT 
ERIMT 7 ge; sg, "mr 
PRIHT OO" ga kig; "me 


PRINT O" d" gá; ren 
ÜLÜZE z 


ELÜSE 15 


1124 FRIHT 

1174 FEIHT " SZÜKS" LL .L§ 
11di FELHT 

JEAA : RTF 

1533 RETURH 


A programot begépelése után először mentsük ki RELGENERALAS néven. Utána akár 
ki is próbálhatjuk. Hozzunk létre egy "PROBA" nevű relatív állományt 10 darab, egyen- 
ként 10 karakteres rekorddal; a végjel pedig legyen csillag. 


RELATAM: ALL 


4 ALLÚHAHY HEVE z7 FKÜEH 
4 REKÓEŐ  HÚZZSZZM s7 14 

4 REKÜRÜÜK SZAHH z7 IK 

4 VEGJEL z7 


Az állomány néhány másodperc alatt létrejön. Ha lekérjük és a lemez tartalomjegyzékét 
kilistázzuk a képernyőre, láthatjuk, hogy az állomány "PROBA" néven be van jegyezve, 
két blokkot foglal el, és az eddig megszokott PRG vagy SEO minősítéssel ellentétben, 
a megkülönböztető jele REL. 


9 EZAZ Jobban megértjük a relatív állományok kezelésének elvét, 

A RELATÍV ÁLLOMÁNY hárnsanézzük-a Jétrelóctált Imá 

BÁJTONKÉNTI gnézzük a létrejött állomány tartalmát. 

OLVASÁSA A relatív állomány rekordjai sorszám szerint követik egy- 
tSzEt mást, ezért kézenfekvő az ilyen állományok soros feldolgo- 

zása: egyszerűen a sorszártok mentén végighaladva beolvashatjuk és feldolgozhatjuk az 

összes rekordot. Természetesen a soros feldolgozás itt is közvetlen elérések láncolatával 

valósul meg, mint ahogyan az a random állománynál is történt. 

Vegyük a legegyszerűbb feldolgozást, amely végigolvassa az állományt, és minden rekord- 

ból kiír annyi bájtot, amennyit meghatározunk. Nehezítsük ezt azzal, hogy a kiírás ne 

csak a teljes állományra, hanem tetszőleges rekordjától ugyancsak tetszőleges rekordjáig 

tartó bármely intervallumára is végrehajtható legyen (25. ábra). 


A feltételek: 


— FI: A program tetszőleges sorrendben mindaddig feldolgozza a tetszés szerint meg- 
adott intervallumokat, amíg azt szükségesnek tartjuk, azaz amíg a "MEHET?" 
kérdésre a V$ válaszunk - "1", vagy amíg O-tól 0-ig tartó intervallumot nem adunk 
meg. 
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— F2: Az intervallumhoz tartozó rekordok mindegyikét feldolgozza, az A alsó sorszám- 


tól az F felső sorszámig egyesével, illetve amíg olvasási hiba nem fordul elő. 


— F3: A rekordon belüli bájtok feldolgozása 1-től egyesével a megadott N bájtig tart. 


A program résztevékenységei pedig a következők: 


OONOUNMNAWNAEA 


: bejelentkezik, 
: bekéri az állomány nevét, 
: bekéri a beolvasandó bájtok számát, 


megnyitja az állományt, 


: bekéri az intervallumot, 


fejlécet készít, 
a rekordsorszámot bináris formára konvertálja, 


: a rekord soron következő bájtjára pozicionál, 

: hibavizsgálatot hajt végre, 

: beolvassa a bájtot, 

: kiírja a rekord tartalmát, 

: láblécet készít, 

: megkérdezi, hogy jöhet-e a következő intervallum, 
: kijelentkezik, 

: lezárja az állományt. 


RELELLENORZES 


program 


Előkeésziti a Feldolgoz egy Befejezi a 
feldolgozást szdisszszttl lk feldolgozást 


a 
b 


Előkesziti az Feldolgoz egy Befejezi az 
intervallumot rekordot § intervallumot 


IEEZN I EA 


7627 


8] [9] [10] 25. ábra. Relatív állomány bájtonkénti olvasása 


A program egyszerű. A bejelentkezésben semmi szokatlan nincs: 


HEd PP ETMHT ST: FELHT:FKIHT 


KOZRE LAT "a szal 
103 FEIHT " 4 RELATI9 HLLOMHAHyY ELLEHÜRZEZE WWW" 
i94 FRIMT "7" dl zá 


165  FRINMT:PERINT 

Az állomány F$ nevének bekérésekor a formailag hibás neveket nem fogadja el: 
i1ilú FKIHT 

iz IHFRFUT "éke ALLOPRAN ez": FG 

138 LsLEH(F$4 

ign : IF 15L ÜKk L518£ THEN GüTŰ 128 


Bekéri a rekordokból beolvasandó bájtok N számát: 
is ERIHT: FEIHT 

it FKIHT 

i61 FRIHT "át8H EGv FE 
löz IÍMFUT " 4di 5 O EHI 
léz HeVHLÉLERFTElMH3á ; 
jot : IF i6H E Hi 


EDEÜL  ÖOLVEHSHMŰLI ; 
CT 10 I EA ERO LÉRE ÉBE EGE HÁL KN AVV 5 HEE 


THEH OGÖTŰ 16ki 


A relatív állomány megnyitása csak létrehozáskor bonyolult. Ugyanis az ott megadott 
információkat a lemezkezelő nyilvántartja, így ha egy már létező relatív állományt aka- 
nunk megnyitni, elegendő csak a nevét megadnunk: 

zik ÜFEH 12 
zak ÚFEM 2. 
A parancscsatornára természetesen itt is szükség lesz, tehát azt is meg kell nyitni. 
Megjegyezzük, hogy egy létező relatív állomány írásra és olvasásra egyaránt használható, 
így nem szükséges a soros állományoknál szokásos READ vagy WRITE információt meg- 
adni, sőt egyenesen tilos! A lemezkezelő éppen onnan tudja meg, hogy egy létező relatív 
állomány megnyitására kell felkészülnie, hogy az OPEN utasításban az állomány nevén 
kívül más információt nem talál. Ennek megfelelően jár is el. 


FIGYELEM! 

Noha a relatív és soros állományok, valamint a programok megkülönböztető jelzést kapnak, ami a 
tartalomjegyzék listáján REL, SEO, PFRG formában jelenik meg a lemezkezelő csak a nevük szerint 
különbözteti meg az állományokat; Így a lemezen egyidejűleg nem lehet "PROBA" nevű relatív 
állományunk és PROBA" nevű programunk. Ez soros állományokra is vonatkozik. 


A feldolgozási intervallum meghatározza, hogy mely A rekordtól mely F rekordig tart- 
son a rekordok bájtjainak kiírása. Bekérésekor a program ellenőrzi, hogy az intervallum 
határaiként megadott rekordsorszámok formailag helyesek-e, és ha nem, új intervallu- 
mot kér: 


314 FEET ság BRLNT 
szú FRIHT "ső IHTERVALLURM " 
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IHFUT "  RFEKORNTÜL zo BIRMMN" ; Fi 
PRIHT 
k TIHFUT "  REKOROIG  - 0 ENMIU";F 


78 : "ar EHE HAMU Fid . THEH GÜTL 


380 : gi IF AclÜR THEH GÜTÜ 
za : : IF F-ZA ÜR THEM GÜTLI 
Sai "7" 0: TE FEsM ék THEM GÜTÉ 


A program 20 rekordnál hosszabb intervallumot nem fogad el, hiszen kiírása már nem fér- 
ne el a képernyőn. Minthogy egy intervallum kiírása után kérhetjük a következőt, ez a 
20-as határ valójában semmiféle korlátozást nem jelent. 

Megjegyezzük, hogy a program O-tól O0-ig tartó intervallummal is leállítható, ha rájövünk, 
hogy tévesen adtuk meg az állomány F$ nevét, vagy hogy a "MEHET?" kérdésre meg- 
gondolatlanul adtunk igenlő V$ választ, 


Az egymás után lekérdezett intervallumok tetszőleges sorrendben követhetik egymást, 
sőt lehetnek köztük átfedők is. Annak sincs akadálya, hogy valamely intervallum csupán 
egyetlen rekordból álljon. 

A fejléc a lehető legegyszerűbb, hogy ne foglaljon el sok helyet a képernyőn: 

zág : PRIHT [29 

aaa : FRIHT O " se gereTeeTeTeTeTeTTTTTTTTTTeTTr" 

Az intervallumot feldolgozó ciklus elindítása után a program az RS rekordszámot a po- 


zicionáláshoz szükséges bináris formára konvertálja, és törli a rekordtartalom tárolására 
használt B$ változót: 


4lg : z 
dzti : : EHzSzIN a 
aza : o: EL-RE 


áá o: :  E§Fz"" 


Minden rekordból annyi N bájtot olvas be a program, ahányat megadtunk neki. Ehhez 
egy ciklust indít, amelyben először a rekord soron következő K bájtjára pozicionál, 
majd hibavizsgálatot hajt végre: 


SE FOR kzl TŰ OH 
516 : FRIHTH15, "P"CHEECZOCHEH(ELICHEF(RHICHEE( 
szA GOSUE 1818 :REMzső HIERYIZEGALAT 

sző IF Hizszá THEH GÜTÜ 718 


Sikertelen pozicionálás esetén kilép a ciklusból. Ha viszont nem volt hiba, beolvassa a báj- 
tot, és bejegyzi a rekordtartalmat tároló változóba: 


ada o: 0: 0: 0: GETHZ.Ü8 
J5a o: o: 0: 0: IF C$5zCHE$CL3) THEM C$s"e" 
met o : § ; ú IF Cáz"" THEN üsz":" 

rá o: 0: 0: 0:  EESZB$ATF 

sag o: o: MHEXT K 
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Az olvasást a már ismert GET utasítással hajtja végre. A képernyőn önkényesen kiválasz- 
tott C$ karakterek jelennek meg azon bájtok helyett, amelyek meg nem jeleníthető ka- 
rakterekkel kifejezhető információt tartalmaznak; vagyis a program a RETURN jelet 
sarkára állított négyzetre, a bináris nullákat pedig kettőspontra cseréli ki (természetesen 
csak a képernyőn, a rekordban nem!). 

A bájtok beolvasása után a program kiírja az R$ rekordsorszámot, valamint a rekord 
általunk megadott első N bájtjának B$ tartalmát: 

61 : : o RBEZZKIGHTEÉ" lábas Já zó AB sot N ee 

bel : : PKIHT ká." sz "Ex 

ég : MHEXZT EZ 


Az intervallum feldolgozásának befejeztével a program láblécet készít: 
7üRi : PRIHT " - FELTEÁSSE RÉSEN JI HET Kés I96é5 MAR 1 TERT 8 1 IRB IBBBS JEGES VAGY LES (ML ME 1 [ 


Majd megkérdezi, hogy jöhet-e a következő intervallum. Ugyanezt teszi, ha az intervallum 
feldolgozása közben hiba fordult elő: 

r19 : FRIHT 

rzá : IHFUT "gk H1-HET sístis 0 I NIMIA" sa 

739 : IF VáEZZ"IT THEH GOTÜ 818 

ran GÜTŰÜ Z1k 


Igenlő V$ válasz esetén visszatér az intervallum bekérésére. Egyébként pedig kijelent- 
kezik, lezárja az állományt, és leáll: 


218 FRIHT:FRIHTS SEB 7EGE" 

2 fi [a] FR E ÍVÍ Fe aa tam aan kre it tá hate tata tág sm vtáó tea mm ee ar tte ener tane im ama Rt se mine teat mere tm tet me mi jő E vég HEH ka) 
310 ÜLÜSE z 

928 ÜLŐZE 12 

599 EMI 


A hibavizsgálatot külön szubrutin hajtja végre, amely lekérdezi a parancscsatornát, és 
hiba esetén megadja az R$ rekordsorszámot, a K bájtpozíciót, valamint a lemezkezelő 
H$ hibaüzenetét: 

igi16 IHFUTHIZS.H.H4.Z E d 

1928 IF H-ZzZA THEH GÜTŐ 15339 

1838 : PEIHT 1" sszeneszzzseszztez name ene erekovakerameakzodhealeezhnelemedezzkeezzekenekas ! ? 

ilúán : PEKIHT "7" 45k ac B gek HT 

ís373 KETUEKM 


Ezzel kapcsolatban megjegyezzük, hogy a program (azaz a programozó) optimista, mivel 
a hibavizsgálatot csak a pozicionálás után hajtja végre, az olvasás után azonban nem. 
Ez az optimizmus azonban megalapozott, mivel a sikeres pozicionálás után már igen kicsi 
a valószínűsége a bájtonkénti olvasás sikertelenségének. 

A begépelt programot mentsük ki RELELLENORZES néven a lemezünkre, mert később 
még szükségünk lesz rá. 

Ezután kipróbálhatjuk. A program kérdésére állománynévként a "PROBA" nevet adjuk 
meg, a beolvasandó bájtok száma pedig 10 legyen: 


79 


4 ALLÜHEMHyszz FERÜEH 


4 EGT RERÜRŐEBÜL ÜLYVHeredgütiz löki EHIT 


Minthogy a lemezen PROBA néven tárolt relatív állományunk tízbájtos rekordokból 
áll, a kiíráskor a teljes rekordtartalmat meg fogjuk kapni. 
Az első lekérdezett intervallum 1-től 20-ig tartson. 


4 IHTEEVALLLEIPI 
REKORÜTÜL sv 1 
REKÜRÜILG s7 zA 


Rövidesen megjelenik a képernyőn az első 20 rekord tartalma: 


BENKE SÉKEZE SS SZETT tet et ÉT etttt 
6 NANE — RÉS: ; ALLAS SES rrágteet ő85-eéle 
FENE : KÖZÉ TEÁK NÉK SEEM 
la. BE —EGBE a lő ös ÉN TEL ÉRE NÉ ÉG öE 
1z. Elöl SBS 1 alt klcZRASHG sets SE ZÉ 
er. sás te 2 e GT a 
Es ED BA jását gát ék 
szél — RB ; re gyk SES EB ZE MÉ őt 
: re RL zúlbi FELÉ TET a E SSÉTÉK 
kés NÉ ; vö lette sé le SEt tet 
$8 a Je —öaÉ, X JENBE ESEK zá Et MÉ 
1 NR ÉR HÉ , SEEK SE AT ate TELE 
sé ME ÁT Ecá ÁK AL a deti A 
ESZE TE: Ez kzt ab 98 kt ETT 
IE ZRÉ-Rő , RE aE SR: 
8 kássci ER RÉ : lt stőr Stt árát ök ÉGE 
4 séget Sb ; AGSZ OS ÉL eg sé át 
TT BE Vf zsák áá A 
) ál NÉ ) Út BENE TÉ SE ENE. 
1 ze, b — Gr ee ZÁN ÉRE zsák E e 
Em JRAETZSER ZNÉEASAAt stee et tál s 

ne mszzszzzáátés isi S OBA KEY RT RAS VASI 18889 IE TORI VERY IRT BEK MAR ART KERT HEG 18 


:-4 MEHET zI-/HMHz7 I 
Először is látható, hogy az első kilenc rekord üres: az első bájton a legmagasabb értéket, 


a CHR$(255) karaktert, azaz a Tr jelet tartalmazza, az összes többi bájton pedig bináris 
nulla van. 
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A tizedik rekord azt tartalmazza, amit a létrehozáskor beleírtunk: az első bájton csillagot, 
majd a felíráskor keletkezett RETURN jelet, azaz a CHR$(13) karaktert. A többi bájton 
bináris nullák vannak. 

Itt azonban nem ér véget az állomány, noha csak 10 rekord létrehozására adtunk paran- 
csot. A 11. rekordtól újra üres rekordok következnek. Ennek az a már ismert tény az 
oka, hogy az állomány létrehozásakor a lemezkezelő a megkezdett szektort mindenkép- 
pen végig feltölti. Egy blokkban, azaz egy szektoron a tízbájtos rekordokból 25 fér el, 
ezért várhatóan ennyi rekord lesz az imént létrehozott állományban. Meggyőződhetünk 
róla, ha a "MEHET?" kérdésre "1"-vel válaszolunk, majd a következő intervallum hatá- 
raiként 21 és 40 értéket adunk meg. 

ÁOSAGKNSEKAAGA Ni úr TA att BIB? JG (9 (45 Egg) SZ HIG Bat 1631 SIEY BAR Al AN JÚ 


VENNÉNEK TEKNÓ KEGY KERT KARY TERBAL KÉRÉB IRARB EGAL RB TRE EROS KAY IRAK ABB RAG JARNAL MEL IA 


KERET KR TN  VÖREZZÁÁKE d [AGA] dt LHRBER ad [et Ha EAT s za szoges szd AZ Ká HÁL KERNI 


4 HEHET zI/Hz? MH 


Valóban, a 25. rekordig megjelennek az üres rekordtartalmak, de a 26. rekord első bájt- 
jánál RECORD NOT PRESENT, azaz a rekord az állományban nem található hibaüzene- 
tet kapunk. Ehhez az üzenethez az 50-es hibakód tartozik. Tanulságként megjegyezhet- 
jük, hogy soros végigolvasáskor az állomány tényleges végét erről a hibakódértékről is- 
merhetjük fel. A létrehozáskor általunk felvitt rekordnak e tekintetben nincs szerepe. 
A példa azonban arra is felhívja a figyelmünket, hogy ha egy rekordba adatot viszünk, 
célszerű az első bájtra CHR$(255)-től eltérő értéket írni, mert így a feltöltött rekordok 
könnyen megkülönböztethetők lesznek az üresektől. 

A programot a hibaüzenet után nem kell leállítanunk, kérhetünk újabb intervallumot. 
Esetünkben ennek nincs értelme, hiszen az egész állományt láttuk. Tehát állítsuk le a 
programot a "MEHET?" kérdésre adott tagadó válasszal. 

Ha kívánjuk, kipróbálhatjuk a programot úgy is, hogy a beolvasandó bájtok számaként 
nem 10, hanem ennél kevesebb értéket adunk meg. 


FIGYELEM! 

Az aktuális rekordhossznál (azaz esetünkben 10-nél) nagyobb érték esetén már az első rekordnál 
OVERFLOW IN RECORD azaz , rekordhatár túllépése" hibaüzenetet fogunk kapni. Próbáljuk ki, 
mondjuk 12-vell 


Megjegyezzük, hogy ha a 3-as tevékenységet, azaz a beolvasandó bájtok számának beké- 
rését egy szinttel alacsonyabban, az intervallum feldolgozásának előkészítésekor hajtjuk 
végre, mondjuk az 5-ös és a 6-os tevékenységek között, akkor az egyes intervallumokat 
különböző bájthosszúságban kérdezhetjük le, a program újraindítása nélkül. Ehhez csak 
a 150—164 sorokat kell áthelyeznünk a 392—397 sorokra, természetesen a GOTO 160 
utasítátt GOTO 393-ra cserélve. 
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A relatív állomány rekordjainak adatokkal való feltöltése eltér 
az eddig megismert rekordkezelési módoktól. Ezért érdemes 
egy mintaprogramot írnunk e művelet sajátosságainak kipróbá- 
lására. 

A program a RELGENERALAS létrehozó programból könnyen előállítható. Módosíta- 
nunk kell a rekordok hosszát és számát, a végjel helyett pedig a rekordsorszámot, a bájt- 
pozíciót és a rekordba betöltendő adatot kell bekérnünk (26. ábra). 


A RELATÍV ÁLLOMÁNY 
FELTÖLTÉSE 


43 
b: 
Vg 
Fszt ett e gcástábrll 
I Bekeri az I 
adatokat 
Esztet zs SÉBS 
e 
Bú 
gi 
s 
e 
ét 
st 
Bag 
ez 
KEZESSÉG eztet] 


Tr , és 

I Az allomany I A rekord 
nevét sorszámát 

LL Ft ) 


A bajtpoziciót Az adatot 


Természetesen a rekordsorszám és a bájtpozíció annak a rekordnak a sorszámát, illetve 
a rekordon belül annak a bájtnak a pozícióját jelenti, amelyre a kérdéses adatot fel akar- 
juk vinni. 

Tehát töltsük be a RELGENERALAS programot, majd hajtsuk végre a szükséges módo- 
sításokat: 

Töröljük az alábbi sorokat: 


26. ábra. Relatív állomány írása 


128 REM ——-——TÜRMi sE- esen 
121 REM —--—-TÜRÜLYE-— 
122 BEM -———-TOROLYE-——— 
123 REM -—-—-TORÜLNE-—— 
124 REM —-—-—-TÜRÜLYE-—— 
123 BEM ———TORÜLME- 
meszeTÜRÜLYE-—— 
-———-—-TORÜLYE-——— 
men rTÜRÜLVE—- 
meste TORÜLVE-——— 


Szúrjuk be a következőket: 

146 FERIHT 

141 IHFUT " im EHITFOZILIÜ zt ,P 
14- IF F-ZH THEM GÖTŰ 141 

142 IF FSZ535 THEH GüTŐ 141 


82 


144 FZzIMT-EP. 

169 FKIHT 

i61 IHFUT " érő FELIRRHINI HIRHT s": Há£ 
Ezeket a sorokat pedig módosítsuk: 

lúz PRINT " d am 1 
193 PEKIHT " d RELATId ALLÜMAMHr IRHZRA On" 
194 FKIMNT " d mil" 
121 IHFUT " 45 FEEKÜOROZDESZAM z9 sz 

zzü ÜFEH 2.7z.z.bkb 

zdü ri HTRIDZ. "FT HEÉE GZ ÜHE$TC EL SÜ HESS (RH HR4árP a 
zrü FEIHTH2Z.HA 

azd FERINT " 4 Bt! 

as FRINT " § FELIRVAH W" 

ag FEIHT " d mm 


A teljes program ezek után ilyen lesz: 


$ REN : RELATIVIRAS 

Z REM: 0 sm em en 

3 REM: 

186 ÉRETT ses es áá vat igen tte teéé mét vett ke mare kata úaet mare ges gt táma ve eg sag ere emg mee sam s am e HIHET EE HERE E 
141 FEIHT "IT" :FPRINT:FRIHT 

lőz FRINT 7" d sz 

103 FRINT " 4 RELATIV ALLOHAHY IRASRH OB" 

184 FRINT " d E: 

185 FRINT:FRIHT 

116 FEIHT 

IHFRUT OO" SEB ALLORMHHrT HEVE —";Fá 

LSLEMÉF4 s 

" 4F háti THEN GŰTÚ TT 

:. IF L216 THEN GOTÚ 111 

FRIHT 
IHFUT " 4£ő REKORDSÚRSZAM 7-9 ,5 
: IF 828 THEis GÜTŰ 1531 

1 TR Söt THEH GüTŰ 1531 
sziMT£S. 

FRIHT 

IMPLT 7 am BAJTFÜZILIÚ zo 
dt FEB THEM GÜTŰ 141 

lág : IF Pőzös3 THEH GÜTŐ 141 

idd F-INT-F) 


— 
— 
ra 


(A EPa5 mk (Ra 


1 


TERT EG Tg rá a dás BEL ÉSÉT 
TF. ÚJ 2 dd Úú Ul Fe str 
Ex 


[3 


m-a 
FA Ki 
1) Bu mm 


161 IHPUT " am FELIRARHDO AHORT -":At 

FLSRESLÉK POS TVTT tét et ÖGÖNTRÉ se röKCSÉ mee lg aa sales tizen eset tösaaeotészlsetes SOESZAMKÜNHYERTALAS 
zHk EHSIHT(S/zzám 

zki ELSS-RHEiZS6G 
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FGL e atát tet aktát én tat lg hr aa lk rág a üsd a st kn s tl st ess mesés MEGNYITÁS 

BEM 19.841o 

OFEH 2.8.2.F£ 

Lbezzft: LEZSÜFEH 7": CGÜZUE 1618 

MENT ssakásletemezánettátéttonyassáákáls százat PTE LG TOMA 

FERIMHTHI23. FV LHETE ZS LHESZ ELI CHESEGEHICHEHEF 

L-zág: LEZ"FÜZITV: GÜZIJE 1miki ee 

REPÚ ——66 he nme áá ee évé ára the tán a ir nn úg ae le Ea a ira ta hm mat ma e me mee tam men eme eme [HZ 

FRIHTHZ. HR 

Lsz7ii: LEZ"FRIHTS: GŐSZIJE 1814 

HE REM —F—A6s e ee e a em ré h he ávéván san téesz za tá és saves a game szemet mente ev see EZ AE HEZ 

ELSE 

VAA TET B hd SZÁE bssi 

ÉN ess áttelel táska ses LT ELENYKEZKB 

FRIHT:FEIHT:FEIHT 

FEINHT " d ma 

PRIHT " § FELURYH WE" 

FRIMT "B ma 

EMI! 

TAB REPI ses zözgsée mez 

1010 adták zzE ésbel 13 , E? E 
e TŰ 


main game mm mi ati 


pi kana Au tü ha Bona ha pn 
marr ún rül) E 
[e 


DAN tÜ ád A ül Al 


ko SE kot S KR OLAN ] 


hin ho 


ja dal fi — Ez hú 
ne 
köt 


ké te Sá 
Lé a 


szzzzszzHIERWIZSGALAT 


; 


18 
1938 


IR Izi TŰ LEM(K£) 
:  SEző$á! " 

MEXT I 
FRIHT:PRINT:FRIHT 
PRINT "o gt;gá; "am 
PRINT " gt;ká; "vm 


ERIHT "o gY;sá; "vm 


PEIHT " SORs";L.L£ 
PFH.IHT 
488 FT ri IF 


Ezzel kész is a mintaprogram, amely lehet, hogy nem a legkényelmesebben, de igen egy- 
szerűen használható a relatív állomány rekordjaiba történő adatbevitel kipróbálására. 
Felhívjuk a figyelmet az OPEN utasításra. Látható, hogy az olvasáshoz hasonlóan íráskor 
sincs szükségünk másra, mint az állomány nevének megadására — ha az állomány már 
létezik. 
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Mentsük ki a programot RELIRAS néven. Majd próbáljuk ki a lemezen már létező 
"PROBA" állományunkon az alábbi adatokkal (a programot természetesen minden egyes 
adat felírása után újraindítva) : 


3 ALLUÚMAHvT HEVE z7 ERÜEH 
4 REKÜROZORBSZAM sző z 
4 ERAJTFOZICIÓ z7 1 
id FELIEBSHUD HÜRT s7 HHHH 


3 ALLOMANY HEVE 57 FROER 


H REKORUSORSZAM 57? 4 
4 BAJTFOZICIO 57 4 


14 FELIREBHIŰ HAORT —7 BEEE 


4 ALLOMAHY HEVE. s7 FENEH 
id RFEKÜRÜZDESZHM z7 E 

d ERITFŐZIÉ IC my 
4 FELIEHHUG ADAT s7 


üz 0 


Itt OVERFLOW IN RECORD, azaz rekordhatár túllépése hibaüzenetet kapunk, hiszen 
a negyedik C karakternek már a 11. bájtpozícióra kellene kerülnie, a rekord viszont csak 
tízbájtos. Ne ijedjünk meg, indítsuk újra a programot, és folytassuk az adatfelvitelt: 


id ALLOHAHY HEVE 27 FEÚEH 
4 REKÜRÜZÜRSZAM -7£ 

id ERJTFOZIL IT! my 
4 FELIRAHOZ ADAT z7 DIDI 


: 


Les! 


3 ALLOHAHY HEVE 57 PEJÚEH 


A 


14 REKORUSCESZRBM z7 § 
4 BAJTFOZILIŐ zo? 


4 FELIRAMUD ADUHT 57 EEEE 
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::.IYERELŐK (ÉM REGÜRÜ 
ferlszágstbe s ejüétettez egi Maga ező jezeajez bát ágáák e eszágjesb 


ziikz ZH FEIHT 
EFRERK IH 11538 


Itt is OVERFLOW IN RECORD hibaüzenetet kapunk, mert a rekordba nemcsak az 
adatnak, hanem a RETURN jelnek is el kell férnie. A hibát tehát nem az okozza, hogy 
ugyanabba a rekordba akartunk adatot írni, amelyikbe az előbb már írtunk. Ez ugyanis 
megengedett, és a rekordok közvetlen elérése miatt lehetséges is, 


De menjünk tovább: 

4 ALLOHAHY 0HMHESE zs? PEOER 
4 REKŐRÜSÜESZAM z7 18 

id BAJTPOZICIO my 2 

4 FELIRAHUD ADORT z7 FFFF 


4 ALLOHANMY HEVE sr FELEK 
4 REKÜRÜSÚESZAM z7 1x 
4 ERITFOZICIÓ z7 E 
4 FELIRARHUÜT HURT —7 CGG6G 


id ALLOMAHv HEVE 57 FEÓEH 
43 REKORUZÚREZAM sz7 14 
4 BHJTFÜZILIŰ zy 6 
id FELIREARMDO  ANRT sz? HHHH 


4 ALLOMAHrT HEVE z7 FRUEH 
4 REKORUZÓEBSZHM 0-7 14 

4 ERJTFOZICIŐ zp 1 

4 FELIRAMDÜ HURT -7 IIII 


4 ALLOMANY HEVE -? PRŐER 
3 REKORDZORSZAM 57 1E 

4 EAJTPOZÍLIÓ -7 1 

4 FELIRAMUC HURT —?7 JIJJJ 


1 


2 ALLUMAHrT HEVE —7 FERÜEH 

4 REKÜRŐSORSZHAM -7 16 

4 EAJTPOZICIO z7 4 

4 FELIRERMHDC HURT —7 KEKE 

Most már elegendő adatunk van az állományban, amelynek nézzük meg a tartalmát. 
Töltsük be a RELELLENORZES programot a tárba, és indítsuk el a "PROBA" állomány- 
ra, rekordonként 10 bájt olvasását előírva az 1.-től a 17. rekordig terjedő intervallumon 


belül. 
Ekkor a képernyőn megjelenik az állomány tartalma: 


: 


; KERES . SEEK , ről Söt éözál? JE ák rég ék 
2 z RAHHé: : : : : 
cé VI, — HG. az égó 1gs s ár Tk Sá HBZÉLY 
4 z 1::EBEBé: : 
isa 98 k : BE. , nt Élve áE A-t átrá ö 
ÉS ké rt rt an EE 
gp s át KE 
8 - DIUD$:EEEE 
pe KÖRE. alk, ; ette ülete öv ltsát EE 
19 5 KéFFFFé: : : 
éa KÖME. . VEG , eját Sot SöBb böl lat sk Ő 
12 z mg: : : :GGGÖé 
7 hoz vág. AR elesés sgt öö dgezék a élt: 
14 z IIII6:::: : 
3 Bea ÖNL 2ABÉS , pá KS HA ELÉ 
16 sz IJIKKEKs: : 
egz s TE , jót á kest öl? Eg tr BÉ 
TA ÁÁSERRZROTOTSBEN TANK TÉVES TÖTT TERRI VEN IE8BP TRENT ISK TERT TÖRNI 18881 JB HK ARI KE 18 


4 MEHET -I5Hz7 H 


Elemezzük az eredményeket! 


— A 2. rekordban: 

Ha egy adatot felviszünk egy rekordba, akkor a PRINT utasítás végén lévő RETURN 
jel is felkerül, ugyanúgy mint a soros vagy random állományoknál. Az adat és e jel által 
le nem fedett üres bájtok érintetlenül maradnak. 

Megjegyezzük, hogy a RETURN jel felvitele a PRINT végén kiadott pontosvesszővel 
letiltható. 


— A 4. rekordban: 
Ha egy adatot a rekord belsejébe pozicionálva írunk fel, az előtte lévő bájtok érintetlenül 
maradnak. 


— A 6. rekordban: 
Ha egy adat nem fér be a rekordba, akkor annyi karakter kerül belőle oda, amennyi be- 
fér, utána OVERFLOW IN RECORD (Í(rekordhatár túllépése) hibaüzenetet kapunk. 


— A 8. rekordban: 

Ugyancsak OVERFLOW IN RECORD hibaüzenetet kapunk, ha maga az adat elfér ugyan 
a rekordban, de az utána következő RETURN jel már nem. 

Ha a rekordba kerülő adatokat nem hézagmentesen pozicionáljuk, akkor köztük meg- 
maradnak az üres (bináris nulla) bájtok. j 


— A 10. rekordban: 

Ha egy részben feltöltött rekordba viszünk fel adatot, az újonnan felvitt adat előtt már 
fenn lévő adatok érintetlenül maradnak. 

Ha minden adatot külön menetben viszünk fel, szigorúan balról jobbra haladva a feltöl- 
téssel, akkor megfelelő pozicionálással elérhető, hogy az adatok között szeparátorjelként 
a RETURN jel szerepeljen. (Ez a későbbi olvasáskor kihasználható lesz.) 


— A 12. rekordban: 

Ezt a rekordot csak azért vittük fel, hogy összehasonlíthassuk a 14. rekorddal; bizonyít- 
va, hogy ott az ugyanígy felvitt "HHHH" adat nem azért hiányzik, mert nem sikerült 
felírni. 


— A 14. rekordban: 

Ha egy részben feltöltött rekordba a fent lévő adatok elé pozicionálva viszünk fel egy 
újabb adatot, akkor az újat követő régi adatok megsemmisülnek. (Emlékezzünk arra, 
hogy a 14. rekordba először a "HHHH" adatot vittük fel a 6-os bájtpozíciótól kezdve, 
ugyanúgy, mint a 12. rekord esetén a "GGGG" adatot. Ezután került az "IIII" adat a 
14. rekord 1. pozíciójára. Minderről ismételten meggyőződhetünk, ha a "HHHH" és 
"1II" adatokat ugyanilyen módon felírjuk például a 18. rekordba, de minden egyes írás 
után a RELELLENORZES programmal megnézzük a rekord tartalmát.) 

A megsemmisülés akkor is bekövetkezik, ha az adatok között nincs átfedés. 


— A 16. rekordban: 

Ha egy részben feltöltött rekordba új adatot viszünk fel úgy, hogy a kezdőpozíciója 
, belelóg egy már fent lévő adatba, akkor annak az új adattal lefedett bájtjai felül- 
íródnak. (A rekordban eredetileg "JJJJ" adat volt, amit még egy RETURN jel is kö- 
vetett.) 

A korábbi tapasztalatoknak megfelelően az új adat előtti bájtok érintetlenül maradnak, 
az azt követőek pedig megsemmisülnek. 


Most pedig állítsuk le a programot a "MEHET?" kérdésre adott tagadó válasszal, és fog- 
laljuk össze tömören a tapasztalatokat. 

A relatív állomány rekordjaiba tetszőleges pozíciókra vihetjük fel az adatainkat, ügyelve 
arra, hogy: 


— az adatok a rekordban elférjenek; 

— az adatok közötti RETURN jelek számára is legyen elegendő hely; 
— az adatok ne fedjék át egymást; 

— a rekord feltöltése szigorúan balról jobbra haladjon. 


Természetesen a RETURN jelre csak akkor van szükségünk, ha olvasáskor ezt használni 
akarjuk. A balról jobbra haladó feltöltés sem kötelező, ha gondoskodunk az új adattól 
jobbra lévő régi adatoknak az új felírása előtti kimentéséről, majd a felírás utáni vissza- 
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töltéséről; hacsak nem éppen a régi adatok megsemmisítése vagy a rekordszerkezet át- 
alakítása a célunk. 

Végül még egy megjegyzés az írással kapcsolatban. Töltsük be, és indítsuk el a RELIRAS 
programot az alábbi paraméterekkel: 


3 ALLOMANY HEVE 57 HZ 
4 REKORDSZURSZAM -7 18 

4 EAJTPOZICIÓ  -71 

3 FELIRAMDC ADAT -7 AKARMI 


szüks 226 ÜFEH 


Már a megnyitáskor FILE NOT FOUND, vagyis az állomány nincs a lemezen hibaüze- 
netet kapunk, mert ilyen nevű állományt még valóban nem hoztunk létre. 

Írni tehát csak már létező állományba lehet, kivéve, ha az állományt létrehozásra nyitjuk 
meg, ahogyan azt a RELGENERALAS programban tettük. Ilyenkor természetesen írha- 
tunk is bele, éspedig nemcsak egyetlen rekordot, hanem akárhányat. 


FIGYELEM! 

Sem a RELGENERALAS, sem a RELIRAS program nem a relatív állomány feltöltésére való, hanem 
csupán az üres állomány létrehozására, illetve a rekordok feltöltésének, vagyis a rekordkezelésnek a 
kipróbálására. Az állományba általában nem így kerülnek be az adatok, hanem úgy, ahogyan majd 
a karbantartásnál látni fogjuk. 


FIGYELEM! 

Ahogy a , SOROS LEMEZÁLLOMÁNYOK" című kötetben a rekordkezeléssel összefüggésben már 
részletesen tárgyaltuk, a rekordon belüli adatok között a szeparátorjel vessző, azaz CHRS(44) legyen, 
és csak a rekord végén álljon RETURN, azaz CHRS(13) jel — ha a programban a relatív állomány 
szellemének megfelelően valóban rekordorientált feldolgozást akarunk végrehajtani. (A RELIRAS 
programban csak azért használtunk mindenütt a sorvége (RETURN) jelet, mert itt szó sincs rekordon- 
kénti feldolgozásról, csupán az írás teszteléséről — ami így egyszerűbb.) 


Mint már tapasztaltuk, a "PROBA" állományban 25 rekord 
van. Mit tehetünk, ha mondjuk a 33. rekordba akarunk egy 
adatot felvinni? 

Próbáljuk ki! A már betöltött RELIRAS programot indítsuk el úgy, hogy az alábbi para- 
métereket adjuk meg: 


A RELATÍV ÁLLOMÁNY 
KIBŐVÍTÉSE 
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SRELATTVALLOMAKY "ÍRÁSA 


ni 


4 ALLOMBHY HEVE -7 FEDER 

4 FEKORDSORSZAM 0-7 ss 

4 EHITFOZICI( sza 

4 FELIRRHIOO ANAT -7 ENYITES 


[ 


Hi 


H 


A program simán le fog futni, és FELIRVA üzenetet ad. Ekkor töltsük be a 
RELELLENORZES programot, és futtassuk le a "PROBA" állomány 21—40 rekordjai- 
ra, rekordonként 10 bájtot olvasva. 

MESZ ESZSZ EZÉ É MÉ ee pe e E TTTITTTTÉTT 


Fa Ú) ÚJ) dd Ül Ún) 


410 ej 
KAHN MM EE KV E KE E 


ÚJ dai 


1 


44 041010 hü Fa — át! 


Hé 


HON OH 


5 


4 HEHET sl/MH-7 I 


A képernyőn ott fog díszelegni a 33-as rekord a "BOVITES" szöveggel feltöltve. Az állo- 
mány egyébként a 26. rekordtól az 50.-ig üres rekordokkal lesz feltöltve. Erről meggyő- 
ződhetünk, ha a lekérdezést tovább folytatjuk a 41—60 intervallummal. 

Az íráskor tehát a lemezkezelő automatikusan kibővítette az állományunkat egy blokkal. 
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Természetesen ha van hely a lemezen, akár több blokkal is bővíteni tudja az állományt, 
például ha az 555-ös rekordba akarnánk adatot felvinni. 

Ha a bővítés ilyen egyszerű, miért kell a létrehozáskor lefoglalni az állomány számára a 
lemezterületet? Nem lenne jobb, ha üres állományt hoznánk létre, vagy legalábbis olyan 
kicsit, amilyet csak lehet, és azután szükség szerint bővítenénk? 

Az ötlet elvileg jó, a megvalósításának nincs akadálya. Próbáljuk ki! Töltsük be a 
RELGENERALAS programct, és töröljük ki belőle a 240—280 sorokat, hogy az OPEN 
és a CLOSE között csak egy hibavizsgálat maradjon: 


zat RFHsIHTÉS"z-6 

281 RLt5—-RBHEZSE 

219 ÜFEH 15.2.13 

229 ÜFEM 2.8. 2.FERS SL." TOHESEAR 
239 Lszzf: LEZ"DFEM ": GOSIJE 1819 


248 REM —-———- TOROLYE—--—-—— 
sad REM —ezs- TÖRÖLYVE-——— 
27ú REM ---—--TORÜL 9E————- 
299 REM ———-- TOROLYVE-——— 


318 CLOSE z 
szó ÜLŐSE 15 


Indítsuk el! Az állomány neve legyen "MINTA", a rekordméret 10 bájt, a rekordok száma 
10, a végjel csillag. 

A program normálisan le fog futni. Bejegyzi az állomány nevét a tartalomjegyzékbe, és 
megjegyzi a rekordméretet is. De ha bekérjük a lemez tartalomjegyzékét, látni fogjuk, 
hogy a "MINTA" nevű REL állomány által elfoglalt blokkok száma nulla. 

Most töltsük be a RELIRAS programot, és futtassuk le kétszer: 


4 ALLOMHAHY HEVE —-7 HIHTHR 
4 KREKOROZÜRSZHAM z7 16 
id EHJTFOÜZICIO 7 1 


4 FELIEARMHIC AHNAT z7 


14 ALLOMAHr HEVE z7 MIMHTH 
4 REKORÜOSÜESZHAM 77 18 

4 BAJTFÜZICIÓ zy oz 

4 FELIERHOC HURT z7 HIHTRA 


H 


Ezután ellenőrizzük a "MINTA" állományt a RELELLENORZES programmal, rekor- 
donként 10 bájtot olvasva. Látni fogjuk, hogy megvan mind a 25 rekord, amelyek közül 
24 üres, míg a 10.-ben ott a csillag és a "MINTA" szöveg. 

A módszer tehát működik. Az egyetlen kifogás ellene az, hogy a kiterjesztés lassítja a 
feldolgozást, mivel az nagyon időigényes; ugyanis a lemezkezelőnek minden egyes alka- 
lommal teljes blokkot vagy blokkokat kell teleírnia. 
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Helyesebb tehát az állomány méretét a lehető legpontosabban megbecsülni, és a meg- 
felelő méretű lemezterületet a létrehozáskor lefoglalni. 

Ilyenkor a lemezterület időigényes előkészítését csak egyetlen egyszer kell , végigszenved- 
nünk", mivel azonban a kiterjesztésre csak kivételesen kerül sor, az állomány kezelése 
valamivel gyorsabb lesz. 

Mellesleg így nem érhet bennünket az a meglepetés, hogy mondjuk az állomány felének 
tényleges feltöltése után derül ki, hogy további rekordok számára a lemezen már nincs hely. 


A RELATÍV ÁLLOMÁNY — A relatív állomány kizárólag a parancscsatornára kiadott 
TÖRLÉSE SCRATCH lemezkezelő funkcióval törölhető. j 
Például: 


SEM edős 8. 15 


READ, 
FRIHTHIS. SZORATÉH: FELTEH" 


REHŰY, 
ÜLÉSE. ta 


FIGYELEM! 
A relatív állomány újbóli létrehozása nem jelenti az állomány törlését. 


Ha egy létező relatív állományt létrehozásra nyitunk meg, akkor ennek hatása olyan lesz, 
mintha írásra nyitottuk volna meg: 


— Hanem adunk ki PRINT utasítást, az állomány az eredeti állapotában marad. 


— Ha létező rekordra adunk ki PRINT utasítást, az adatot felviszi a kérdéses rekordba. 
— Ha nemlétező rekordra adunk ki PRINT utasítást, akkor a lemezkezelő a megfelelő 
mértékben kiterjeszti az állományt, és feltölti a kérdéses rekordot. 


Mindezt a RELGENERALAS programmal kipróbálhatjuk, akár a "MINTA", akár (ha még 
nem töröltüka PROBA állományra. 


Rekordméretként mindig az eredeti rekordméretet, a 10-et, végjelként mindid a csillagtól 
feltűnően eltérő 96 jelet adjuk meg. Az eredmény a RELELLENORZES programmal 
vizsgálható meg. 


FIGYELEM! 

Ha a létrehozott állományt az eredetitől eltérő rekordmérettel kíséreljük meg újra létrehozni, a leg- 
első pozicionálás alkalmával NO CHANNEL, vagyis az állomány számára , nincs hozzáférhető szabad 
adatcsatorna" hibaüzenetet kapunk, a létrehozás pedig sikertelen lesz, 


Ez a hiba leginkább olyankor fordul elő, amikor egy új állományt akarunk létrehozni, de 
elfeledkezünk arról, hogy a megadott néven már van egy állományunk a lemezen; vagy ha 


az állomány nevét hibásan gépeljük, és ezzel egy létező névbe , találunk bele". 
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A hibaüzenet kissé meglepő, de a RELGENERALAS program lefuttatásával meggyőződ- 
hetünk róla, hogy valóban ezt az üzenetet kapjuk, amikor például a "PROBA" vagy a 
"MINTA" állomány újbóli létrehozásakor bármilyen, 10-től eltérő rekordméretet adunk 
meg. 


REKORD TÖRLÉSE Az állomány szerkezeti felépítéséből és szervezési módjából 
A RELATÍV következik, hogy rekordot fizikailag törölni, vagyis az állo- 
ÁLLOMÁNYBÓL mányból eltávolítani lehetetlen. 


A rekord tartalma azonban törölhető. Ennek az a legegysze- 
rűbb módja, hogy üres rekorddá alakítjuk, azaz hogy az első bájtra visszaírjuk acCHR$(255) 
karaktert, vagyis a Tr jelet, éspedig úgy, hogy utána ne következzen RETURN jel. 

A RELELLENORZES programmal nézzük meg, hogy mi van a "MINTA" állomány 10. 
rekordjában. Ha a könyvben leírtak szerint jártunk el, akkor ez: 


. " (gzkcádááábikákábdtöjásöáláti Tia, tá ab Taj jpg T.J a 886. 3ajgi (gy gs Gage Jöjj io Di 


4 MEHET sI/Hz? H 


Ezután töltsük be a RELIRAS programot, és tegyünk a 270-es sorban lévő PRINT utasí- 
tás A$ változója után egy pontosvesszőt. Majd indítsuk el a programot: 


(d ALLOMANY HEVE -7? HIHTHR 
4 REKOROZORSZAM -7 16 

(4 EAJTFOZIÉCIO 7 1 

4 FELIRAHNÜ ADAT z 


Eg 


4 MEHET -1/MH5s? H 


Töltsük be a RELELLENORZES-tt, és nézzük meg a rekordot; az ugyanolyan lesz, mint 
a többi üres rekord. 

Az ilyen törléskor kihasználjuk, hogy egy adat felvitele megsemmisíti a rekordban tőle 
jobbra lévő régi adatokat. A törlést tehát felülírással valósítjuk meg. 

Igen gyakori azonban, hogy nem ezt a módszert választjuk, hanem a rekord első bájtját 
egy állapotjelzőnek tekintjük, ahová mindig egy, a rekord állapotára jellemző jelet vi- 
szünk fel. Például feltöltött rekord esetén "4", törölt rekord esetén "7—" jelet. Az üres 
rekordban nyilván meghagyjuk a Tr jelét. Ilyenkor további jelek kiválasztásával megkü- 
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lönböztethetjük egymástól a teljesen, illetve a részben feltöltött rekordokat, vagy akár 
— mint ahogyan a létrehozáskor tettük — a csillaggal az állomány fizikai végét a logikai 
végétől. (Ezek a megkülönböztető jelek a karbantartáskor előnyösen kihasználhatók.) 


, 


A törölt rekord ilyesfajta megjelölésének csak akkor van értelme, ha a "—" jel beírásakor 
nem töröljük a rekordtartalmat, hanem visszaírjuk a rekordba. Ugyanis ilyenkor a törölt 
rekord eredeti állapota egyszerűen helyreállítható. 

Ott, ahol az adatvesztés komoly károkat okozhat, és ezért nagy biztonságra kell töreked- 
nünk (azaz a téves törléseknek helyreigazíthatóknak kell lenniük), vagy ott, ahol a rekor- 
dok ideiglenes törlése is előfordulhat, célszerű ezt a megoldást választanunk. Persze nem 
ez az egyetlen lehetőség. A törölt rekordokat például kimenthetjük egy tartalék állo- 
mányba is; ilyenkor a helyük a törzsállományban felszabadul, viszont a rekord helyre- 
állítása valamivel körülményesebb. 

A relatív állományok karbantartásával kapcsolatban mindkét módszerre látunk majd 
példát. 


Általában nem a rekord bájtjainak tartalmára, hanem a rekord- 
ban tárolt adatokra van szükségünk. Így az ellenőrzés során 
megvalósított bájtonkénti olvasás helyett gyakrabban olva- 
sunk adatokat. 

Az adatbeolvasás lényege nem új. Mindig két lépésből áll: 


A RELATÍV ÁLLOMÁNY 
OLVASÁSA 


— POZICIONÁLÁS: először be kell állítanunk azt a rekord- és bájtpozíciót, amelyről az 


olvasásnak el kell kezdődnie. 
— OLVASÁS: az adat tényleges beolvasása, amely a pozicionálás után hajtható végre. 


Mindkettő a már ismert módon történik; a pozicionálás a parancscsatornára PRINT uta- 
sítással kiírt pozicionáló információkkal, az olvasás pedig az állományra kiadott INPUT 
utasítással. 

A rekordra már jól tudunk pozicionálni: a rekordsorszámot (RS) konvertáljuk egy alsó 
(RL) és felső (RH) bájtból álló bináris formára, és ezeket használjuk pozicionáló infor- 
mációként. A pozicionálás sikerességéről a parancscsatorna H hibakódjának megvizsgálá- 
sával győződhetünk meg: H-0 esetén a pozicionálás sikeres volt, minden más esetben nem. 
H- 50 esetén a sikertelenség oka, hogy a rekord nincs az állományban. Minderre elegendő 
példát láttunk. 


Most tehát csak a bájtokra való pozicionálás lehetőségeinek és hatásának elemzésével 
foglalkozunk. Ehhez azonban tudomásul kell vennünk, hogy a rekordkezelés érdekében 
az adatok közé, valamint az utolsó adat végére ugyanolyan szeparátorjeleket kell elhe- 
lyeznünk, mint amilyeneket a soros és a random állományoknál is használtunk; azaz vesz- 
szőt vagy a RETURN jelet. Ezek a jelek természetesen a rekordméretbe beszámítanak. 
(A rekordkezeléssel a , SOROS LEMEZÁ LLOMÁNYOK" című kötetben részletesen fog- 
lalkoztunk.) 


A pozicionálásnak már az íráskor is lényeges szerepe van, és nemcsak annyi, hogy ott is 
meg kell adnunk, hogy a rekord feltöltése melyik bájttól kezdődjön; mint ezt a RELIRAS 
tesztprogramban is tettük. 
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Vegyünk például egy olyan rekordot, amelynek az első bájtján egy állapotjelző van, a 
harmadikon pedig a "VEGE" szöveg kezdődik. Az adatokat RETURN jel követi. Ha most 
a 3-as bájtra pozicionálva az "END" szöveg felírására adunk ki utasítást, a rekord tar- 
talma így módosul (27. ábra) : 


1 Z 3 4 5 6 7 8 S. 10 


Pozicionáláas 


KAI fáAá LII] ri 
1 7 a 3 4 5 6 7 8 a 10 
27. ábra. Relatív írás 


Vagyis a "VEGE" helyett nem "ENDE", hanem "END" szöveg szerepel a rekordban, 
amelynek a feltöltött része egy bájttal rövidebb lesz. 

Az írás nagyon lényeges tulajdonsága, hogy soha nem bájtonként, hanem mindig adaton- 
ként történik, úgy hogy a rekordnak a megadott pozíció előtti része érintetlen marad, 
a pozíciótól számított, az adat méretének megfelelő része pedig felülíródik a megadott 
adattal, míg a rekord fennmaradó része törlődik, azaz oda bináris nullák kerülnek. 

Mindezt már kipróbáltuk, de ha kívánjuk, a fenti példa kapcsán ismét meggyőződhetünk 
róla. Vigyük fel a rekordot a RELIRAS programmal például a "MINTA" állomány 
10-es rekordpozíciójára. Nézzük meg a RELELLENORZES programmal, majd a példá- 
nak megfelelően módosítsuk a rekordot a RELIRAS programmal, és vizsgáljuk meg az 
eredményt ismét a RELELLENORZES programmal. 

Olvasáskor is ugyanez az adatkezelési szemlélet érvényesül. Mindig pozicionálás előzi 
meg, azaz meg kell adnunk, hogy az olvasás a rekord melyik bájtjától kezdődjön. Ezután 
akár egy adatot olvasunk be, akár többet, minden egyes adat olvasása a legközelebbi 
szeparátorjelig tart. í 


Így ha a 28. ábra szerinti 
rekordból egy R$ adat beolvasására adunk utasítást: 


dt ré 


— az 1-es bájtra pozicionálva az A$ értéke - "36 

— a 2-es bájtra pozicionálva az A$ értéke- "VEGE" 

— a 3-as bájtra pozicionálva az A$ értéke- "VEGE" 

— a 4-es bájtra pozicionálva az A$ értéke- "EGE" 

— az 5-ös bájtra pozicionálva az A$ értéke- "GE" 

— a 6-os bájtra pozicionálva az A$ értéke- "E" 95 


1 2 3 4 5 6 7 8 9 10 


EE sze ER ÉR TOK MESA EZ HA [ta I ABE 


Pozicionálas Olvasas 


28. ábra. Relatív olvasás 


Ha a 0-s bájtra pozicionálunk, a lemezkezelő a rekord elejére ír, illetve onnan kezdi az 
olvasást. Vagyis úgy viselkedik, mintha az 1. bájtra pozicionáltunk volna. 

Ha a rekord fel nem töltött részéből akarunk olvasni, azaz az esetünkben a 8-as, 9-es vagy 
10-es bájtra pozicionálunk, akkor STRING TOO LONG (, megengedettnél hosszabb szö- 
veges adat") hibaüzenetet kapunk. 


Ha a beállított pozíció túlmutat a rekordterületen, azaz ha példánkban 11 vagy ennél 
nagyobb, OVERFLOWIN RECORD (, rekordhatár túllépése ") hiba következik be. 
Negatív vagy 255-nél nagyobb pozíció beállítása ILLEGAL GUANTITY (, nem megenge- 
dett paraméterérték ") hibaüzenettel programmegszakítást eredményez. 

Ha pedig a rekord végjelére pozicionálunk, azaz példánkban a 7. bájtra, akkor a rendszer 
hibaállapotba kerül, és csak a STOP RUN és a RESTORE gomb együttes megnyomásával 
hozható ki onnan. Összefoglalásként nézzük a 29. ábrát! 


255. 256 


l 39 V VE : E INRÉSKA sti és : TENEKE SENSE S. o I 
Ü E E 6 E ü SRA TT. v L 
L G G E r R R R E E L 
E 6 "E e l I I R R E 
G 0 Na 1N: NN. FE F.G 
A ta AJAK, c SRÉE c ERR c SORÁT B H A 
L s o 07 

z A T.Ww w 
a CÖRENÉS s HR s 19 a G 
U r Oi Or "Ő I l U 
A N NA 
N 60 ük 8 18 N 
Ja l o o Oo R R T 
! (NN N E E I 
6 0 Gr 9n ÖS 1 af Gr 6 T 
9 a (e) o Y 

l R R 

[ D D 


29. ábra. Pozicionálási hibák 
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RELOLVASAÁS 


pragram 


Előkészíti a Feldolgoz egy Befejezi a 
feldolgozast intervallumot 18 feldolgozast 


1]L2] Le] 


Előkészíti az Feldolgoz egy Befejezi az 
intervallumot rekordot Hi intervallumot 
HE [6] 


CD 


[7] elb9 IL] KENNENÉ KA KI 


30. ábra, Relatív állomány olvasása 


Mindezek kipróbálására külön programot írhatunk, amely a bájtonkénti olvasás 
(RELELLENORZES) mintájára adatonként olvas (30. ábra). 


A feltételek: 


— F1:ha mehet a következő intervallum feldolgozása, azaz ha V$- "1"; 

— F2: ha az aktuális RS rekordsorszám nem kisebb az intervallum A alsó határánál, és 
nem nagyobb az intervallum F felső határánál; 

— F3: ha a rekord nem üres, azaz ha az első A$ bájt értéke nem-CHR$(255). 


Vessük össze ezt a bájtonként olvasó ( R]ELELLENORZES) programmal. Látható, hogy 
szerkezeti változás csak a legalacsonyabb szinten fordul elő. Valamivel több eltérés van 
a (xe-gal megjelölt) résztevékenységekben, ahol is a program: 


— 1: bejelentkezik; 
—- 2: bekéri az állomány nevét; 
x 3: bekéri a bájtpozíciót; 
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: megnyitja az állományt; 
: bekéri az intervallumot; 
: fejlécet készít; 
: konvertálja a rekordsorszámot; 
: a rekord első bájtjára pozicionál; 
9: hibavizsgálatot hajt végre; 
: beolvassa a jelzőbájtot; 
11: kiírja az adat tartalmát; 
12: láblécet készít; 
— 13: megkérdezi, jöhet-e a következő intervallum; 
— 14: kijelentkezik; 
— 15: lezárja az állományt; 
36 16: a rekord megadott bájtjára pozicionál; 
36 17: beolvassa az adatot. 


l 
0 NOB 


Gye B VES. 3 
o 


Ennek megfelelően könnyen előállítható a bájtonként olvasó RELELLENORZES prog- 
ramból a program kódja: 


IA SSAANIK RELATÍIVOLYHS 


2 REM: 46 az öáenág ocean 

a s RE 

JŰTÖTETTB FÉL EG VÉN e tá elseséskáéatáeá lelém KÉt emg átl amel mai e áébá HAÜHRTBEEKERES 
181 FPFRIHT 7.9" :PRIHT:PRIHT 

102 FRINT " d mi 

1097 FRIHT " d KBELATIV ALLOMAHY OLVASASRI mi" 

104 FPEIMHT " 4 mi 


183 FRIMT:FRIHT 
1168 FKIMT 

128 INFUT "448 ALLOMHHr—" F£ 

138 L-LEMH(Fá4) 

148 : IF 1í15L OR L:-16 THEH GOTO 1298 

138 FRIHT:FRIHT 

168 FRIHT 

1761 IHEUT "448 EHJTFPOZIÉIUuz o 0ZNBIHR" : F 

188 FzIHTÉFP? 

198 : IF P-ZR ÜK P2253 THEM GÜTÜ 164 

ZAB REM ——— sosem me mese sé sms e mene mán senem MEGNYITÁS 
218 OPEN 15.8.15 

388 REM ——6—— oh ehe samt enem seámm men IHTERVALLUMBEKEREZ 
318 FPRIMT "TT": PRIHT 

328 PRIHT "448 IMTERVALLURM " 

sza : FKIMT 

aga :  IHPUT " KREKÜEÜTNL zs oó0ÚHAMINE FA 

sak : FKIHT 

s6g : IHFUT " KEKÜRDIG 


FIRRNNT FF 


ara o: : IF AzA AHD Fző THEH GOTÓ 815 


90 : : IF ACi OR A2655335 THEN GOTÓ 339 
399 : : IF FA OR FS653533 THEH GOTO 338 
391 : : IF F-A: 29 THEN GÜTÜ 37A 
398 : PRINT Ké Jég 
399 :  PRIMT ! ——— ——  ———— e mem mrriTrTTTI 
JOB REM ——666 ehe e ama evöotí éa ná ta a im eg e tam té hm me me NŐTLEN 
418 : já kSszA TO F 
428 : RFH-SIHT(RS/2567 
aza : : . EL5RS-RKHá2Z56 
já :  : FRIHTH1I5, "P"CHES(2ICHRÁC ELI CHES(EHICHEEr( 1) 
ag : : GOSUE 1818 :REMszz HIBRVIZZSGALRAT 
át o:  : IF H:szZ8 THEH GOTO 710 
479 : : : IMHFUTHZ2. HE 
Visa jaj ú -8 Biz nm at 
dag : : IF HázCHE$(Z55I THEM GÜTŰ 818 
Bau d: FRINTHIS, "P"CHRFCZ "1 CHERTELICHES(EHICHRE( PF? 
Szá : : : GÜSÚEB 1818 :KEMszzz HIERVIZSGALAT 
szú o : : IF Hószá THEH GÜTŰ 714 
j4g : : : IMFPUTHZ ES 
$A8 REI 66666 e ev ára ee vére ie e zet mm mm sm tg e em em ám tá te me me my mr mm ment ADATKIIRAZ 
616 :  : RSzZRIGHTE(" "zETRÉCRS1 6) 
ző : PRINT E$É;" : ";A$;" : ";B$ 
bag : HEXT RS 
Tat § F R I H T A aaáasámásássamásátátsttáázannásütalálke kata habalitekak 4 
ri : PKINT 
728 : IHEUT "9448 MEHET z[/Hs oo INNEN" :V$ 


fööözés alF VÉG TIT" THEM GO 51a 

tza GÜTÜ 310 

ADB REM ———ccs essem mázzzá eme tatás KIJELENTKEZES 
al8 FKIHT:FRIMHT"44m VEGE" 

SAE REM essen ső semm árámete semm esete see mem meze LEZHRAS 
a 0 GLÜSE 2 

szk ÜLÜZE 13 

esS EN 

MENETET MEDI essem össz mez ése seteő 
1619 IMFUTHIS.OH,HE.S.E 
lab IF H-ZEB o THEH S0TÚ 19398 

1639 : PRINT " sszsmmeemmmeemenembelekeeke kelene eekeneeneeek 1 

149 : FKRIHT " a": ES; " szt 1 ak otááb HElE. ha 

19593 KETURH 

A 102—104, 399, 700, 1030—1040 sorokban csak , kozmetikázást" hajtottunk végre; 
az üzeneteket és a fej-, illetve láblécet igazítottuk az adatonkénti olvasáshoz. 

A 392—396 sorokban lényegileg csak az az új, hogy a bájtpozíció bekérése új helyre ke- 
rült. Így minden egyes intervallumban más-más pozícióról olvashatunk, illetve ugyanazt 


szemszmissszzszszzt HIERVIZSGALAT 
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az intervallumot többször egymás után választva, a rekordnak akár az összes adatát be- 
olvashatjuk. 

A bájtpozíciót nem érdemes 3-nál kisebbre választanunk, hiszen a próbaállományainkban 
az előtt nem adat, hanem az állapotjelző és annak szeparátorjele van. Persze megadhatunk 
0 vagy 1 pozíciót is, de ekkor adatként az állapotjelzőt fogjuk beolvasni. 

Értelemszerűen a legnagyobb eltéréssel a tulajdonképpeni feldolgozást végző modulban, 
a 440—540 sorok között találkozunk. 

Az természetes, hogy a GET helyett INPUT utasítást használunk. Az is, hogy itt nincs 
szükségünk a bájtonkénti olvasás ciklusára, hiszen akárhány bájtból áll az adat, egyetlen 
utasítással olvasható be. 

Feltűnő, hogy az olvasás látszólag két részben történik. A 440—475 sorokban először az 
A$ állapotjelzőt olvassuk be az első bájtpozícióról. Maga a beolvasandó adat még üres. 
Erre csak azért van így szükség, hogy ne olvassunk bele üres rekordba. Ez az INPUT uta- 
sítás tehát funkcionálisan nem olvasás, csak a rekord ellenőrzése. Voltaképpen GET uta- 
sítást is használhattunk volna, hiszen az állapotjelző egyetlen jelzőbájtból áll. 

Az adat tényleges beolvasása csak akkor következik be, ha az állapotjelző feltöltött re- 
kordot jelez, azaz ha a tartalma nem CHR$(255). Ezt figyeli a 480-as sor. 

Az adatot az 510—540 sorokban olvassuk be, az előzőleg megadott P bájtpozícióról a 
B$ változóba. 

A kiírás a 620-as sorban ennek megfelelően három információt tartalmaz: az RS rekord- 
sorszámot, az A$ állapotjelzőt, majd a P pozícióról beolvasott B$ adatot. 

Ha a programot előállítottuk a bájtonként olvasó programból, mentsük ki, mondjuk 
RELOLVASAS néven. Majd próbáljuk ki: Például: 


:RELATÍV-ALLOMANT  ÖLVASÁSE 
Ha epres sz reeegyte ijeséiejeéttee tt sb 


1 ALLOMHHHyz? FEOBB 


4 BHJTFOZICI(z7 z 


Krz Ts s ZZASETága kössszejzöáki Eg) Mér Jt Jt zi Hl EHE) TA ER! (8 Hú IS, 4) 
tsz LÖKÉST : A 

B o: ko: FFFF 

" ESSS lö : ll 

ÉRE RA KBONVÉSÉÓN TELNE VASI EGT VET EZT TAB HVT BÉR VASI RT EK 88 TEN B 


id MEHET -I/H-7 I 


A 3-as bájtra pozicionáltunk, ezért minden feltöltött rekordból csak az első adatot kap- 
juk meg (az állapotjelzőn kívül). Az üres rekordok esetén maga az adat is üres. 
Próbálgassuk a programot különböző bájtpozíciókkal, és vessük össze a tapasztalatain- 
kat a korábban közölt táblázattal. A 396-os sorban a program figyeli a pozíció formális 
helyességét. Ha a negatív vagy a 253 érték fölötti bájtpozicionálás hatását is látni akar- 
juk, a figyelést ki kell kapcsolni, például a 396-os sor törlésével. 
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A programot gondosan őrizzük meg, mert bármilyen relatív állományból tud adatokat 
olvasni. Erre teszteléskor még szükségünk lehet. 

Megjegyezzük, hogy — mint a programból is látható — üres rekordban kizárólag az első 
bájtra biztonságos pozicionálni. Ez persze rekordorientált feldolgozáskor nem jelent meg- 
kötést, hiszen ott amúgy is ezt tesszük. Ilyenkor a rekord első változója a CHR$(255) 
értéket kapja, a többi pedig 0-t vagy " "-t, azaz nullát vagy üres karaktert, attól függően, 
hogy numerikus vagy szöveges változóról van-e szó. 


Ha viszont nem teljes rekordot, hanem abból csak meghatározott adatot vagy adatsoro- 
zatot akarunk olvasni, vagyis nem az első bájtra pozicionálunk, számolnunk kell a fentebb 
ismertetett hibákkal. Erről könnyen meggyőződhetünk, ha betöltjük a RELOLVASAS 
programot, és a 345 GOTO 475 utasítással kikapcsoljuk benne az állapotjelző figyelését. 
Indítsuk most el a "PROBA" állományra, az első 10 rekordot olvasva a 3. bájttól. Az első 
és a harmadik rekordból "FFFF" olvasódik be, noha mindkét rekord üres. A másodikból 
a várakozásnak megfelelően "AA" jön be; majd a program a negyedik rekordnál elszáll, 
és csak STOP t RESTORE hatására jön vissza a rendszer. Ha ezután a programot újrain- 
dítjuk, de az első bájttól olvastatunk vele, rendben lefut. 


Az olvasás több adattal is kipróbálható: az 540 INPUT utasítást egészítsük ki a ,C$,D 
változókkal, a 620 PRINT utasítást pedig bővítsük a ;"!";C$;"1!";D;"!"adatokkal. Fut- 
tassuk a programot a "PROBA" állomány első 10 rekordjára, a 3. bájttól olvasva. Már 
az első rekordnál programmegszakítás következik be FILE DATA ERROR hibaüzenet- 
tel. Ha újraindítjuk a programot úgy, hogy az olvasást az első bájttól kezdje, rendben 
le fog futni, és látható lesz a fel nem töltött változók " ", illetve 0 értéke, amit akkor 
is felvesznek, ha olvasás előtt C$-"X", illetve D-9 kezdőértéket kapnak. 


§ A relatív állomány kezelése tágabb értelemben a létrehozást, 
A RELATÍV ÁLLOMÁNY karbantartást és feldolgozást foglalja magában, 
KEZELÉSE ő A É ; 8 
I A létrehozással már megismerkedtünk. 
A karbantartás tulajdonképpen az állomány egyes rekordjainak, pontosabban ezek tar- 
talmának megváltoztatását jelenti. Ennek megfelelően az alábbi funkciókról beszélhe- 
tünk: 


— FELVITEL, 

melynek során új adatokat viszünk fel egy még feltöltetlen rekordba. (Ha a szóban forgó 
rekord nem szerepel az állományban, ez a művelet automatikusan az állomány kiterjesz- 
tésével jár együtt.) 


— MÓDOSÍTÁS, 

melynek során egy meglévő rekord adatait cseréljük ki új adatokkal. (A módosítás lehet 
teljes, amikor a rekord összes adatát kicseréljük, de lehet részleges is, amikor csak megha- 
tározott adatokkal tesszük ezt.) 


— TÖRLÉS, 

melynek során egy meglévő rekord adatait töröljük. (Emlékezzünk arra, hogy csak a re- 
kord adatai törölhetők. Maga a rekord sajátos fizikai szerkezete miatt nem távolítható el 
az állományból. 
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. Elvileg mindhárom funkció ugyanarra a műveletre, az írásra épül: először pozicionálunk 
a karbantartandó rekordra, majd felírjuk az adatokat a rekordterületre. Ha a rekordot új 
adatokkal töltöttük fel, akkor tulajdonképpen felvitelt hajtottunk végre; ha meglévő 
adatok módosított változataival tettük ugyanezt, akkor módosítást végeztünk; míg ha 
a rekordot egyezményes jelekkel írtuk tele, voltaképpen a rekord adatainak a törlését 
valósítottuk meg. 

Vegyük észre, hogy itt végül is mindig egy már létező — vagy bővítéskor egy frissen lét- 
rehozott — rekord felülírása történik meg. A felvitel tehát megengedi, hogy már meglévő 
rekord helyére vigyünk fel újat, ugyanakkor a még fel nem töltött rekordok is módosít- 
hatók, illetve törölhetők. 

Nem érdemes azonban ezeket a funkciókat ilyen egységesen kezelni. Biztonságosabb, ha 
a funkciókat egymástól jól elhatárolva kezeljük, sőt egy újabbat is célszerű bevezetni, 
Ez pedig a 


— LEKÉRDEZÉS, 

melynek során megkeresünk az állományban egy adott rekordot, és beolvassuk az ada- 
tait. A lekérdezés lényege a már ismert olvasás: először a rekordra pozicionálunk, majd 
beolvassuk az adatait. 

A karbantartási funkciók a lekérdezéssel kombinálva már lehetővé teszik, hogy csak va- 
lóban új rekordot lehessen felvinni, és csak valóban létezőt lehessen módosítani, illetve 
törölni. 

A karbantartást mindig a LEKÉRDEZÉS funkcióval kezdjük. Ennek nem feltétlenül 
kell magában foglalnia az összes adat beolvasását, elég, ha meggyőződik a rekord álla- 
potáról, vagyis arról, hogy az üres, feltöltött vagy törölt-e. Lekérdezéskor általában mégis 
be szoktuk olvasni a teljes rekordot, hiszen módosításkor, törléskor amúgy is szükség 
lehet az adatokra. Másrészt a beolvasott adatok a képernyőn is megjeleníthetők, lehető- 
séget nyújtva a párbeszédes (interaktív) módosításra. Ezenkívül a lekérdezés önálló funk- 
cióként is igényelhető; például ha a rekordot nem akarjuk módosítani, csupán adatokat 
szeretnénk kinyerni belőle. 


A FELVITEL funkciót csak akkor hajtjuk végre, ha a lekérdezés üres vagy törölt rekordot 
talált, vagy ha nem találta meg a rekordot. Ilyenkor bekérjük a rekord adatait, összeállít- 
juk a rekordot, és felírjuk az állományba. Lehetőséget adhatunk a gépkezelőnek arra is, 
hogy a felvitelbe beavatkozhasson, azaz a felírás előtt az adatokat tetszés szerint javít- 
hassa, illetve hogy végső soron akár az egész felvitelt is letilthassa. 


A MÓDOSÍTÁS funkciót csak akkor hajtjuk végre, ha a lekérdezés feltöltött rekordot 
talált. Ilyenkor kiírjuk a rekordban tárolt adatokat, és lehetővé tesszük, hogy a gépke- 
zelő tetszés szerint, akár többször is módosíthassa őket, majd a gépkezelő megfelelő jel- 
zésére az így módosult rekordot visszaírjuk az állományba. 


A TÖRLÉS funkciót csak akkor hajtjuk végre, ha a lekérdezés feltöltött rekordot talált. 
Ilyenkor kiírjuk a rekordban tárolt adatokat, és a gépkezelőtől a törlés végrehajtását 
megerősítő választ várunk, nehogy tévedésből olyan rekordot töröljünk, amelyre még 
szükség van. Megfelelő válasz esetén egyezményes módon felülírjuk a rekordot. Itt alap- 
vetően két lehetőség közül választhatunk: vagy úgy írjuk felül a rekordot, hogy ezzel 
egy üres rekordot állítunk elő; vagy úgy, hogy a rekord adatai megmaradnak, és csak 
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egy megállapodás szerinti törlőjel (állapotjelző) utal a rekordban arra, hogy törölt rekord- 
ról van szó. 

E funkciók persze további kérdéseket vetnek fel. Ha törléskor megőrizzük a rekord 
adatait, akkor milyen törlőjelet használjunk, és ez hol legyen a rekordban? Új rekordot 
vihetünk-e fel a töröltek helyére? Ha igen, mi értelme megőrizni a törölt adatokat? Ha 
nem, akkor az így megmaradó és az állományban hasznos tárhelyet lekötő törölt rekordo- 
kat meddig őrizzük meg? 

Mindezekre a kérdésekre nem adható általános válasz. Minden esetben a konkrét állomány 
és a konkrét feldolgozási igények ismeretében, egyedileg kell döntenünk. Ehhez a bemu- 
tatott példák, melyek során e kérdésekre még visszatérünk, némi támpontot adnak. 
Ugyanúgy, mint a random állományoknál, itt is valamilyen összefüggést kell találnunk 
vagy létesítenünk a rekord és a tárolási helye között. 

A random állományoknál bemutatott leképezési módok, még az indextábla is, alkalmaz- 
ható a relatív állományokra, azzal az eltéréssel, hogy az ottani blokkcímek helyett a re- 
kordsorszámokat kell szerepeltetnünk. (Nem érdemes azonban a random leképezési mó- 
dokat másolnunk, mivel a relatív leképezés általában egyszerűbb.) 

A bonyolultabb leképezéseknek külön fejezetet szentelünk, ezért itt most egy olyan 
példát mutatunk be, ahol a leképezés a lehető legegyszerűbb: minden rekord az érkezése 
sorrendjében kap egy sorszámot, és ez fogja meghatározni a helyét az állományban, tel- 
jesen függetlenül a rekord azonosítójától. Ahhoz az elterjedt szokáshoz hasonlóan, hogy 
a beérkező bizonylatoknak, leveleknek stb. folyamatosan növekvő bizonylatszámot, 
iktatószámot adunk.) 

Legyen tehát egy eszköznyilvántartásunk, amelyben az egyszerűség kedvéért csak a kö- 
vetkező adatokat tároljuk: 


— az eszköz megnevezése, 
— az eszköz gyári száma, 
— az eszköz értéke. 


A rekorddal kapcsolatban állapodjunk meg abban, hogy az adatok közé a (soros és ran- 
dom állományoknál) már megszokott szeparátorjelet, a RETURN, azaz CHR$(13) ka- 
raktert helyezzük el; továbbá a rekordban külön állapotjelzőt használunk a rekord álla- 
potának meghatározására. Ezt az állapotjelet a rekord első bájtján tároljuk, a tartalma 
pedig egy Tr, egy plusz- vagy egy mínuszjel, attól függően, hogy a rekord üres, feltöltött 
vagy törölt. 

Ennek megfelelően a rekord ilyen lesz: 


— T$: állapotjelző - 1 bájt (7 vagy "4" vagy "—") 
— S$: szeparátorjel - 1 bájt (CHR$(13)) 

— M$: megnevezés -20 bájt 

— S$: szeparátorjel - 1 bájt (CHR$(13)) 


— G$:gyáriszám - 8bájt 
— S$: szeparátorjel - 1 bájt (CHR$(13)) 
— E$: érték z 6 bájt 


"1 


— S$: szeparátorjel - 1 bájt (CHR$(13)) 


A rekordhossz így összesen 39 bájt. 


103 


Megjegyezzük, hogy az állapotjelző elvileg akárhol lehetne a rekordban, akár a végén is. 
Tulajdonképpen nincs is rá feltétlenül szükség. Ugyanis az üres rekordot jelezhetné az 
első bájton a Tr, a feltöltöttet pedig az, hogy ott bármi más áll. A törölt rekordot pedig 
jelezhetné az is, hogy az eszköz megnevezése helyett a "STORNO" szöveg szerepel. 
Nem célszerű azonban, hogy a rekord adatmezőinek kettős szerepe legyen: egyrészt az 
adatok tárolása, másrészt a rekord állapotának jelzése. Még zavaróbb, ha az utóbbi nem 
egy, hanem több adatmező tartalmától is függ. A külön állapotjelző mindössze 2 bájttal 
növeli meg a rekordméretet, így hacsak nem vagyunk különösen helyszűkében, ne saj- 
náljuk a funkciók világos szétválasztása és könnyebb kezelhetősége érdekében ezt a re- 
kordra , pazarolni". 

A rekordkezelés szabályait figyelmen kívül hagyva szeparátorjelként a sorvége jelet hasz- 
náljuk, csak azért, mert így a hibásan létrehozott rekordok is adatonként olvashatók 
lesznek teszteléskor. A program egyébként helyesen működne S$-CHR$(44) szeparátor- 
jellel, azaz vesszővel is. Célszerű, hogy tesztelés után a jelet ennek megfelelően cseréljük 
ki. (Mindezek a később bemutatandó programokra is vonatkoznak.) 

Most pedig lássuk az állomány karbantartásának szerkezetét. Nyilvánvalóan ez a koráb- 
ban ismertetett karbantartási funkciókra épül (31. ábra). 


RELKARBANTARTAS 


program 


CZARNZA 
1 e) E 


; 7 
Béjalestkedk Előkészít 66660 íjeletksésik 
4 


865 HET 
za meet! 


31. ábra. Relatív állomány karbantartása I. 
104 Í 


Ahol a feltételek: 


te. 


— F1: ha a program elindítható, azaz a "MEHET?" kérdésre adott V$ válasz-"1"; 
— F2: ha van karbantartás, azaz a begépelt N sorszám nem 0. 


Maga a karbantartás a felvitelt (beszúrást), módosítást, törlést két járulékos funkcióval 
egészíti ki: a hibás eset kezelésével és a törölt rekord helyreállításával. Itt látható a külön 


a rekord helyreállítható (32. ábra). 


KARBANTART 


H-H E BTO 

etre [DO EZAZ E 
HX oO E FB 
KEEN 


32. ábra. Relatív állomány karbantartása II. — KARBANTART 


A feltételek: 


— F3: ha a pozicionálás sikertelen volt, azaz a H hibakód 2 20, de nem - 50; 

— F4: ha a rekord nincs az állományban, tehát a H hibakód - 50; 

— F5: ha a rekord törölve volt, vagyis az előző feltételek nem teljesülnek, és a T$ állapot- 
jelző-7—"; 

— F6: ha a rekord létezik, és nincs törölve, azaz az előző feltételek nem teljesülnek, és 


ar" 


a T$ állapotjelző —- "1"; 
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F7: ha a rekord beszúrható, vagyis a V$ válasz- "1"; 
F8: ha a rekord felvihető, tehát a V$ válasz- "1"; 
F9: ha a törölt rekord visszaállítható, azaz a V$ válasz - 


l 


végét 


A módosítás három részből áll: lekérdezés (ha nem módosítunk), módosítás, törlés (33. 
ábra). 


MÓDOSÍT 


Megjeleníti a ű 
v 
rekordot gitoztat 


4 


33. ábra. Relatív állomány karbantartása III. — MÓDOSÍT 


A feltételek: 


— F10: ha nem csak lekérdezést akarunk végrehajtani, vagyis a V$ válasz-"N"; 
— F11: ha a rekord módosítandó, azaz a V$ válasz- "1"; 
— F12: ha a rekord törlendő, tehát a V$ válasz- "1". 


Megjegyezzük, hogy nem is olyan ritka az az igény, hogy a törölt rekordokat meg kell 
őrizni, és hogy a rekordoknak sorszámuk legyen. Ugyanis meglehetősen sok az olyan do- 
kumentum (bizonylat), amelynek a kezelésére szigorú előírások vannak. Ilyenek például 
a kimenő számlák. A számlaszámoknak meghatározott számtól kezdve, egyesével kell 
növekedniük. A rontott számlák nem semmisíthetők meg, hanem megfelelő érvénytele- 
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nítéssel megőrzendők, és a számuk sem adható ki más számláknak. Ilyesfajta nyilvántar- 
tás kezelésére a relatív állomány kiválóan alkalmas. 

Következzék tehát a program, amely először is bejelentkezik. Ekkor a karbantartás még 
leállítható: 


FEIHTET":FRIHT:FKIHT 

BREMT " a mi 
FRIMT " 4 ESZKÜZMTILYAHHTHETAZ Mm" 
PRIHT " a mi 


FEIHT:FEIHT:FRIHT 

IHFUT " SEB MEHET sI/tMHz GENE; V4 

TE SS ez 1" THEN GOTŰ 918 

18 S$£5ÜHEF(C1ZI 

Ha nem állítottuk le, a program megnyitja az "ESZKOZOK" állományt, és persze a po- 
zicionáláshoz szükséges parancscsatornát is: 

8 ÚFPEM 13.8513 

128 ÚFEMH 2.2. 2. "ESZKÖZÜK" 


Ezután bekéri a karbantartandó rekord N sorszámát. Ellenőrzi, hogy kisebb-e O-nál, 
illetve nagyobb-e 999-nél. Ha igen, új sorszámot kér. Ha az N sorszám nulla, befejezi a 
karbantartást. Ha nem, a pozicionáláshoz szükséges kétszer egybájtos RH és RL alakra 
konvertálja: 

218 FEIHT"WI": FRIHT 

zzü IHFUT " 4km SŰFRZSZZAM -— DNNMI" : Há 

az :  MHzsIMT(VAL(Má$: 9) 

zja : : IF H(g THEH GOTM 218 

zaja : : IF H-32Z (HEH GÜTŰ 218 

zik : : IF HzWg THEM GOTŰ 518 

zrű : EHSIHT(M/2367 

238 :  EL:H-EHEZ356 


am űün Rea hum 


Most következik a lekérdezés. A program az N sorszámú rekordra pozicionál, ésa P-1 
bájtpozíciójáról beolvassa a T$ állapotjelzőt. Közben hibavizsgálatot is végez. A H hiba- 
kód és a T$ állapotjelző tartalmától függően végrehajtja a különböző karbantartási funk- 
ciókat: 

198 : Fzsl: GŰSIJE 1816 :HBEMzző OLVASAS 

zzz : IF HőzO AHOÓ HC-3A THEM GüTŐ 419 


zsd : IF H-38 THEH GOTO 518 
348 : IF T$z"n" THEN GÜTŰ 519 
mod : IR T$s"-" THEM GOTŐ 61( 
déd : IF T$zöőr" THEM GÜTŰ 718 


ass HŰTŐ z16 


Ha a rekord pozicionálása nem sikerült, hibaüzenetet ad, amely tartalmazza a rekord N$ 
sorszámát, a gépi H hibakódot és H$ hibaüzenetet, valamint a T sávcímet és a B szektor- 
címet. Ezek után dönthetünk, hogy a további karbantartásnak van-e értelme. Ha igen, a 
program új rekordsorszámot kér. Egyébként leáll: 
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41ki FEIHT:FEINT 

áz FRIHT " d o $i4k HIBR kik mm" 

4.2 PELTHTSPEIHT " REKÜRŐ-s "5 MH8 

aegki FEIHT:FEIMHT H-H$.TE 

gi FRIHT:FRIMHT " sem MEHET zs I[I/MHs o HM": 
36 IHELIT S HMMNT 8 

feet 2 "TF Sáte I" THEM GETE 819 

aan ant zik 


Ha a rekord nem szerepel az állományban, vagy szerepel, de üres, a program feltételezi, 
hogy beszúrás (új felvitel) következik. Ennek megfelelően megjeleníti a rekordtartalmat 
a képernyőn. Ilyenkor persze minden adat üres. Ha úgy döntünk, hogy a rekord beszúr- 
ható, akkor a program kéri az adatokat. Ezeket a megfelelő rovatok kitöltésével adjuk 
meg. Az adatbegépelés után ellenőrzési lehetőségünk van. Ha úgy döntünk, hogy a rekord 
az adott adatokkal felvihető, a program felírja a rekordot az állományba. Ezután, illetve 
minden más esetben új rekordsorszámot kér: 


alia : GOSUE zilik :FREHiszss MEGJELEMITES 
özzéh 9 "BETLHT-ERINT 


azi : FRIHT " dö FBESZUERHATLÓ 5I/MHz o MH"; 
azki : 0: — IHFUT "ENBV.v8 

mák : ESéPSszl" THEM GUTY sa 

csel 2 :  G0SUE 2818 :KkEMsző HORTEEKERES 
atok 2 4 PRIMHT:-ERINT 

ak : : FKIHT " dB FELVIHETŰ 5sI/MHz 0 H"; 
ad: :  IHFJT S NMIIHET 8 

a8g F. 4F VER - TI" THEH GÜTÜ 5585 

zak. 0: 0 Táizőat: GÜZIJE 4618 :KEMszső IKkAS 


233 GOTO zi 


Ha a lekérdezés törölt rekordot talált, a program ilyen értelmű jelzést ad, majd megkér- 
dezi, hogy a rekord visszaállítható-e. Ha tagadó választ adunk, új rekordsorszámot kér. 
a képernyőn, majd lehetőséget ad a módosításukra is. Ezután dönthetünk, hogy a rekord 
ebben a formában felvihető-e, Ha igen, a program felírja a rekordot az állományba, persze 
most már a "1" jelre átállított állapotjelzővel. Egyébként meghagyja a rekordot az eredeti 
(törölt) állapotában. A funkció végrehajtása után új rekordsorszámot kér: 


5198 : FRIHT:FRIHT 
EzH : FRIMHT " dokit TÜKÖLVE kk om" 
Eza :  FRKINT:FRINHT 


sz1 : FEIMHT " Gő VISSZARLLITHHTŰ"; 

Szaz :  IHFUT " -I[I/Hzsz o HEMEWNW ; 74 

És da ETELE 271" THEN GOTÜ 693 

64A : 0: Fesz: GOSUE 1819 :BEMsz-ő OLYASAS 
aza o : o: GOZUB 2418 :KREH-zs MEGJELEHITES 
ség o: : GŐZÚE 2016 :REMszz HUHTEEKERES 


6rá FRIHT:FRIHT 

671 FRIHT " 3468 FELVIHETŐ zI/H—z 0 H"; 
Ev IHFIUJT SRI: 73 

673 IF V£C2"1" THEH GúTO. 653 

ezi o: o: 0 Tásző4": GOSÍE dAit :KEMsző IRAS 
6935 GOT 218 


Ha viszont a rekord létezik az állományban, és fel is van töltve, de nem törölt, akkor a 
program rátér a módosításra. Ez azzal kezdődik, hogy beolvassa a P - 3 bájtpozíciótól 
kezdve a rekord adatait, majd megjeleníti őket a képernyőn. Eddig voltaképpen egy lekér- 
dezést hajtottunk végre. Ha csak ez volt a célunk, és kérjük a következő rekordot, a prog- 
ram áttér az új rekordsorszám bekérésére: 
718 : F-3: GÜSUE 19189 :KEHszz OLYRBSHS 
r2n : GOSUÚE 2818 :REMsz: HEGJELEMITES 
vért : PRIHT:FKINT 

31 : PRINT " 3448 JŰHET A KÖVETKEZŐ" ; 
732 :  IMFUT " sI[I/MHz o 00IBKIND" 58 
73293 : IF vV$Cs"M" THEH GOTŰ 7398 


Egyébként el kell döntenünk, hogy a rekordot módosítani vagy törölni akarjuk-e. Ha az 
előbbit választjuk, a program bekéri a módosító adatokat, majd ezek begépelése után 
felviszi a módosított rekordot az állományba: 

749 : FRIHT "TT; 

r4á1 : FKIHT " 44ő MűDOS södeén Tdi 

f74z :  IHFUT " zíisMz o0HMENII" ;" 

743 : IF 7£—27"I" THEH GüT( 789 


729 : o: GOSUE 2818 :REMs-? HDRTBEKERE5 
733 : o:  FRIHT:PRIHT:FRINT 

reg o: o: 0 TÉzőá4". GCOSUB 48198 :REMszzz IRAS 
éz": GOTÓ 739 


Ha viszont a törlést választottuk, akkor a T$ állapotjelzőt átállítja a "—" törlőjelre, majd 
így írja vissza a teljes rekordot az állományba. Ezáltal a törölt rekord adatai nem semmi- 
sülnek meg: 


788 : FRIMHT "TT; 

731 : FERIHT " 248 TÜRLEHUŰ SE 
rög :  IHFUT " -Í[/MHz o 0HENIBI; vá 

ra3 : IF v$cző I" THEM GOTÜ 73935 

28 : o: 0 T$z"-t: GOSUEB 4918 :KEMszz IERZ 
199 BOTO z19 


A program minden egyes karbantartási funkció végrehajtása után az új karbantartandó 
rekordsorszám bekérésére tér vissza. Ha viszont ennek értéke nulla, befejezi a karbantar- 
tást, azaz lezárja az állományt és a parancscsatornát: 

819 ÚLŐSE z£ 

oz Ci.05E 15 
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Majd elbúcsúzik és leáll. Ugyanezt teszi, ha a karbantartás elindítását letiltottuk: 


a18 FRIHT"ZT":PRINT:FRIHT 


szü PRIMHT " al m" 
938 FRIHT " 4 VEGE 9" 
348 FRIHT " a m" 
958 FRIMHT:FRINT:FERIHT 
539 EHUD 


Az önálló funkciójú tevékenységeket külön szubrutinok hajtják végre. 

Közülük első az olvasás. Ez a T$ állapotjelző, az M$ megnevezés, a G$ gyári szám és az 
E$ érték törlésével kezdődik. Majd a pozicionálás következik az N rekordsorszám RL és 
RH alakban megadott értékének megfelelő rekordra, itt is a P bájtpozícióra. A parancs- 
csatorna lekérdezésével a szubrutin ellenőrzi a pozicionálás sikerességét. Hiba esetén az 
olvasást nem hajtja végre. Sikeres pozicionálás után a szubrutin vagy csak a T$ állapot- 
jelzőt, vagy a rekord többi, M$, G$, E$ adatát olvassa be, a paraméterként megadott P 
bájtpozíció értékétől függően: 


1919 T$z-"r 

10928 M$-" " 

1938 G$z" " 

1948 Esz" " 

1118 PRIMTH1IS."P"CHR$(2ICHRE(RLOCHEFÉRHICHEE(F) 
1128 IHFUTHI5.H.H$.T.B 

1138 IF H213 THEN GÜTŰ 139939 

1218 : IF Fzsi THEM IMFUT$Z T8 

1318 : IF F53 THEM IMNFUTHZ.M$.G$.E$ 

1593 RETURHM 


Olvasáskor már nem kérdezzük le a parancscsatornát. Ha a pozicionálás sikerült, az olva- 
sás sikertelensége valószínűtlen, hiszen az állapotjelzőt is figyeljük. (Lásd RELOLVASAS!) 
A következő szubrutin a rekordot jeleníti meg a képernyőn. Ez abból áll, hogy fejléc- 
ként kiírja a rekord N sorszámát, majd az eszköz M$ megnevezését, G$ gyári számát és 
E$ értékét: 


zo18 FEINTVWT":FRIHT 
zÖzB FRIHT:PRIHT " süRSz. oz o 0";H 


2838 FPRIMT " -————— e tú; 
2831 FRINT "——————— eme ú 

2949 PRIHT:FRIHT " MEGMEV z 0"; 

2841 PRINT "4 [SLP B 


zhd4á2 PRIMT "TT TABC1izo: "as Má; öm 
zza FRIMT:FRINT " GYSZAM sz ZA 


zh51 FRIMT "d szik ZaLA 

2952 PRIMT "TT" 5 TAB(124 5 "d". 3. öm 
2960 PRINT:PRIHNT ú ERTEKE z Mr 
2861 FRIMT "4 me 


2862 FRIMHT "TT GTABC(iza, "d"; E$; mm 
29939 KETURHM 
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A rekord adatait a formanyomtatványoknál szokásos kiemelt rovatokban adja meg. 
Minden rovat meghatározza az adat maximális méretét, amire a rovat végén álló rombusz 
(kárójel) még külön is figyelmeztet. Ezek a rovatok különösen hasznosak az adatok be- 
kérésekor, amire új rekord felvitele vagy meglévő rekord módosítása esetén kerül sor. 
Ez a szubrutin ugyanis a billentyűzetről bekéri az M$ megnevezést, a G$ gyári számot 
és az E$ értéket: 

2918 FRIHT " IMRINTETETRT" ; THETi1H: ; 

sozAH IMHFUT MH4 

saga H-LEFT$(M$.2zA 

:úd46 FEIHT "e" :THEZt1lwg.; 

230 IHEUT GE 

tet SEZzLEFRFTHÁÉGE 2 

zarb FRIHT "8" THECZ1R. 

jei IMHFUT E£$ 

30599 E$zLEFTHr(E$. 6) 

3395 KETUKRH 


Erre azonban mindig csak a rekord megjelenítése után kerülhet sor. Így az adatbekérés 
során a képernyőn megjelenő rovatokat kell kitöltenünk, illetve felülírnunk, ami az 
adatbevitelt és a módosítást rendkívül megkönnyíti. 

Végül külön szubrutinnal írjuk fel a rekordot az állományba: 


4418 IF H-593 THEM GOTŰ 4114 

4923 :  PRIMHTHIS. "FTLHEFEZ IC HESFÉRLICHE$-RHICHEE( 17 
4639 :  IHFUTHIZ.H.HE.T E 

4á4A : IF H512 THEH GOTÜ 4218 
4118 FRIHTHZ TÁ: 2$.M$:.S$£:.G0$.5$5Et 
diza íF T$z"4" THEM ÚU$-"FELYIVE" 
4128 IF Tá$zs"—" THEM USZ"TOROLYE" 
4143 PRIHT:FKIHT 

4158 FRIHT " d ték ".ll4.;" kkk om" 
4193 GOTÓ 431A 

azi8 : FRIHT:FKIHT 

dazb : FRIMT " d $$$ HIEBH $ik B" 
azza : FRINMT 

4áz48 : FRIMT H:H$.T:B 

4315 T1-TIHME 

432 TzézTIME 

338 IF T2-T1£i12z8 THEM GÜTŰ 45320 
4933 KETUREH 


Mindenekelőtt meg kell néznünk, hogy meglévő rekordba kell-e az adatokat felírnunk, 
vagy az állomány kiterjesztésével új rekordot kell létrehoznunk. Ez a lekérdezéskor be- 
állított H hibakód alapján, a 4010-es sorban egyértelműen eldönthető. 

A kérdés azért nagyon fontos, mert a sikeres olvasás után, tehát létező rekord esetén az 
íráshoz újra kell pozicionálnunk. Mivel mindig teljes rekordot írunk fel, ez a 4020—4040 
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sorokban mindig az első bájtra történik. Sikertelen pozicionálás esetén a szubrutin meg 
sem kíséreli az írást, viszont a 4210—4240 sorokban hibaüzenetet ad. Sikeres pozicioná- 
lás esetén a 4110-es sor felírja a rekordot az állományba. (Az olvasáshoz hasonlóan az 
írás sikerességét ilyenkor már nem vizsgálja.) Közvetlenül e művelet végrehajtása tör- 
ténik meg akkor, ha a rekord nem szerepel az állományban, vagyis amikor bővíteni kell. 
Ugyanis ilyenkor a lekérdezésnél végrehajtott pozicionálást nem követte olvasás, így az 
íráshoz nem kell újra pozicionálni, sőt nem is szabad, mert kétszer egymás után pozi- 
cionálni tilos. 


FIGYELEM! 

Ha egy rekordra kétszer egymás után pozicionálunk, még ha különböző bájtokra is, a második pozi- 
cionáláskor 1-es hibakóddal NO CHANNEL hibaüzenetet kapunk. Ezt alkalomadtán kipróbálhatjuk, 
ha a RELOLVASAS programban az 510-es pozicionáló utasítást az 515-ös sorban megismételjük, 
majd a programot a "PROBA" állományra lefuttatjuk. 


Az írás végrehajtása után a 4120—4199 sorokban a szubrutin megfelelő üzenetet ad. 
Hogy legyen idő ezt elolvasni, mielőtt továbblépne, mintegy 2 másodpercet vár. A vára- 
kozási időt a 4310—4999 sorokban a gépi óra lekérdezésével méri. 

Ezzel a program kész. Ha begépeltük, mentsük ki RELKARBANTARTAS néven, de ne 
indítsuk el, mert az "ESZKOZOK" állomány még nincs létrehozva, márpedig karbantar- 
tani csak létező állományt lehet. 

Mielőtt kipróbálnánk a programot, fordítsuk még figyelmünket a törölt rekord helyre- 
állítására. Ezzel kapcsolatban két lehetőségünk van: a rekordot vagy változatlan, vagy 
módosított formában állítjuk helyre. Programunkban az utóbbi megoldást választottuk. 
A jobb áttekinthetőség kedvéért egybefüggően is közöljük a vezérlőprogram listáját 
(tehát a szubrutinok nélkül) : 


1 FRIHT"2T":PRIMHT:FPRINT 


2 PRINT " a mi 

3 FRTHT " 4 ESZKOZMYILYAMTARTAS Mt" 

4 FRIHT " a mm 

5 PRINT:FRIMT:FRIHT 

6 IHFUT " SEM MEHET zI/Hz o GENNIE" ; 

7 IF VEC"I" THEM GOTÜ 918 

18 S$SCHR$C13I 

ÍŐ EM Sa seans énéséalsápezatákeméz sélestsításesálárseszá lstsán —ennnMEGHYITAS 


1164 ÚPEM 153.5.12 

128 ÜFEM 2.38. z."ESZKOZÜK" 

4 NT VIRG TET ÖS E RS e etet SÉ et SBEN leg tane tászáse mertem mezes ese a SORSZAMBEKERES 
zl18 FRIHTEÉT":PRIHT 

zek IHPUT " d4iő SÜRSZAM z CAMMI": H$ 

zok :  HzIHTÉVALÉM$ 5 


záa : : IF HAA THEM GÜTŰ 218 
azza : 0: IF M53359 THEH GOTÜ 219 
zbá : : IF HO THEH GÖTŐ S18 


arg : det ozkkor arszt 
zza o: . ELzMH-EHáz 
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998 REI €—6———— hee eses en ee mmm ee menne EKRRERHTÁRETHE 
316 : Fsi: GÜSUB 1914 :REMszó OLYHZSRSZ 
szá : IF H-ZA AMD H-S36 THEH GÜüTŰ 414 


2330 : IF Hz3WA THEH GÖTŐ 319 
349 : IF T$z"n" THEH GÜTŐ 5314 
mad : IP T$z"-" THEH GOTÚ e18 


368 : IF Táz"á" THEN GOTO 718 

393 GOTU 218 

498. REM —————— eses esnem semen me nesz smma SIKERTELEH 
418 :  FRIHT:PRIHT 

4286 : PRINT " d kt HIBA Ek OM" 

430 :  PRIMT:PRIHT " REKORD z ";H£ 

449 :  PRIMT:FEIHT H;HE,T:E 

458 :  PRIHT:FRINT " gim MEHET z I/Mz o M"; 

4680 :  IMPUT "EMI"; 4 

478 : IF V$CS"I" THEM GOTO 818 

499 GOTO 218 

599 REM ———— esen ee mee e nemem mem BESZLRAS 
518 :  GOSUB 2818 :REMszz MEGJELEMITES 

528 :  FRIHT:PRINT 

521 : FPRIHT " 3kB BESZURHATÚ sI/Hzo M"; 

538 :  : IMPUT "EMM"; V4 

549 : IF VEZD"I" THEH GOTO 599 

55a :  :  GOSUB 3818 :REMzz2 FIDFATBEKERES 

56g : 0:  FRIHT:PRIHT 

561 : o: PRINT " 3kB FELYIHETŐ sI/Hz o HM"; 

578: 0: IMPUT "EBM"; 4 

588 : IF V$8ZZ"I" THEM GOTO 588 


saga o:  :  Tázftat: GÜSUB 4A1lM :REM-zs IRAS 

598 GOTO 219 

ÉBE REM ——— o hee een em háeáre eme eme ámemtmmen VISSZAALLITAS 
18 :  FRIMHT:FRIHT 


éz : FERIHT " d o$kt TÖRÜLVE akk om" 
638 :  FRKIHT:FRIHT 
631 : FRIHT " 3em VIZSSZAEHLLITHATÉI" ; 
ész :  IMHFUT " —[/Hzo 0 HEMNI;v$ 
é39 : IF V£$€5"1" THEM GÜTŰ 63535 

: o: Fz2: GOSUB 1818 :KEMszőó ÜLYVHSHS 
cszg o: o: GOSUE 2819 :KREMsss MEGJELEMITES 
6ég o : 0: GÜSUJE SO16 :REMszőó HORHTEEKERES 
érá :  : FEIHT:FRIHT 
éri : : PFPRIHT " S3tő FELYIHETŰ -IrHz 0 HM"; 
ezz o : 0: — IMHFIUT "AMBI: v£ 
erg : IF váz "I" THEM GŰTŰ 63535 
egg o: o: 0 T$zöá": GOSUE 49818 :KEMszó IRAZ 
23 GOTŰ zik 
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7ÖG REM ——————— ooo een LEKERDEZES 
719 : P-3g: GOSUB 1816 :REMz-sz OLYASAZ 

726 : GOSUB 2818 :REMz-2 MEGJELEMHITES 

739 :  PRIHT:PRIHT 

731 : FRIMT " zi JOHET A KÖVETKEZO"; 


"zzz :  IMFUT " -I/Mz INININ;"/$ 

tad ". IF V$LS2 NM THEMH:GOTO 7339 

TAC AYÚ HA Bsz SS égE HENEZGRÉTGÉ SES TEÉ ZÁS KG SSZSNÁENSSÉ SZÁEK ÚGAGV Esz azás alge Ea eagálz ss MÓDOSIÍTAS 
vétel ss SFRINT— EST s 

r4á1 : FRIMT " 44 MÓDUSITHRHDO Ké 

váz :  IHFUT " sI/Hz 0 HENIBF ; vi 

SEM TE SZESZ IST HEN  GOTU 786 

rad : : GOSIJE 238198 :KEMsző: ADATBEKERES 

Vdz tk "PRINT SERENT:PELNT 

veg o: o: 0 Tázőá": GÜSLUE 4Ai6 :KEMzszs IRAS 

rra : . GOTÜ 733 

ézet rra AN E szász geeez e ése tdszl szá agsláz ág száz lsz ágba e ólggtány s alámtiszísz velos szösstnss azt TÖRLES 


ra : PRIMT "Ta 

ra1 : PEIMT " 3468 TÜKRLEHHIŰ s 
raz :  IHFPUT " sI/MHz o MENNI": vá 

703 : IF V$4252"I" THEH GOTŐ 73939 


r9ga : : T$z"—": GOSLIE 4818 :KEMzzs IRAS 
r33 GOTO 214 
hz0 a 2 IR bd 22 hi Kósszázzaleti gs zo áoszsáeaá ss ságok es sztezéss a saiszdaz ága Jess otlet 270 ásza tzzizágsáss ága LEZHEHS 


519 CLOSE z 


998 REM ———————————— eme — KIJELEHTKEZES 
919 PRIMT"TI":PRINT:PRIHT 
929 PRIMT " a mm" 
538 PRIHT " 4 VEGE MW" 
548 PRIHT " a mm: 


558 FRIHT:FRIHT:FRIHT 

299 EHD 

Látható, hogy módosítást két helyen is végrehajthatunk. Ugyanis nemcsak a létező fel- 
töltött rekordok módosíthatók a 740—770 sorokban, hanem a 640—670 sorokban a 
visszaállítással egyidejűleg a törölt rekordok is. 

Ha úgy érezzük, hogy ez a felhasználó számára kétségtelenül kényelmes megoldás, de a 
program áttekinthetősége és biztonságossága szempontjából hátrányos, akkor átírhatjuk 
a törölt rekordot helyreállító modult úgy, hogy az valóban csak visszaállítani tudjon: 
el9 : FRIMT:FRIHT 

ez23 : PFRIMT " 9 $4k4 TÖRÖLVE $ik OM" 

638 : PRIHT:FRIHT 


SZL : (REM ssszzz TÖKBEVEseszesees 
Gőz 2 SREPLzvese TURHEYEzezze 
B39- 5 KE ezseze TÖRÖLVE SZsz 
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649 : Pzs3: GOSUB 1919 :KREMs-Ss ÜLYAZHS 

658 : GOSUB 2610 :REM-zz MEGJELEMITES 

669 : REM ————- TOROL4VE————- 

678 : PRINT:PRIHT 

671 : PRINT " 248 VISSZARLLITHATÓ :I[/MHz o 0 H"; 
672 : IMPUT "ENBI";4v$£ 

é73 : IF V$Z2"I" THEM GOTÜ 6399 

699 : :  Táz"4": GOSUB 4918 :REMszz IRAS 

699 GOTO 219 
Ilyenkor, ha a gépkezelő módosítani is akar, akkor ezt külön menetben kell megtennie: 
először visszaállítja a rekordot, majd ugyanazt a rekordsorszámot megadva, végrehajtja 
a módosítást. Ha ritkán van rá szükség, akkor ez valójában nem jelent nagy. kényelmetlen- 
séget a felhasználóknak. 

Ha akarjuk, írjuk át a programunkat ennek megfelelően. Csupán a 631, 632, 633, 660 
sorokat kell törölnünk, és a 671-es sor kérdésének szövegét kell megváltoztatnunk. 
Akár átírtuk a programot, akár nem, most már kipróbálhatjuk. Először persze hozzuk 
létre az állományt. Ehhez a RELGENERALAS programra van szükségünk: 


mb : f1 testes 


4 ALLOMANY HEVE 57 ESZKÖZÖK 
4 REKORD HOSSZA 7-7 39 
4 REKORDOK SZAMA 7 28 
-4 VEGJEL 27 1 


Ügyeljünk arra, hogy az adatokat hibátlanul adjuk meg; az állomány neve "ESZKOZOK", 
a: rekordméret 39 bájt, a végjel pedig Tr legyen, különben a karbantartó programot nem 
tudjuk majd használni. 

A rekordok száma elvileg legfeljebb 999 lehet; ennyit enged meg a karbantartó program. 
Ezt persze nem kell kihasználnunk. A teszteléshez elég, ha 20 rekordot adunk meg. (Ha 
akarjuk, ezzel összhangban módosíthatjuk a karbantartó program rekordsorszám-ellen- 
őrző rutinját.) 

Ha a RELGENERALAS sikeresen lefutott, akkor betölthetjük, és elindíthatjuk a 
RELKARBANTARTAS programot. 


SORSZ. ma 1 


MEGMEV sz [eszes sest evezlék Ez o ERET, NE] 
GYSZAM sz FEET 
ERTEKE zs SESSESZEE 


4 BESZURHATÓ zI[/Ms? I 115 


Először az 1-es sorszámú eszköz adatait adjuk meg. Minthogy az állomány üres, a program 
beszúrásként fogja kezelni a rekordot. 
Adjunk meg tetszőleges adatokat. Például: 


SÜRSZ, z 1 


kazak tto EULO) kat geg EIA Em al átal EE tg Et IA Öt Eng OT État ETTE Kám Ek EDE ae Ea ág e leegett ama emet are 


MEGMEV s 7? C64 KOZP.EGYS., HAANNKNNEó 
GYSZAM - 7 44-1111ié 
ERTEKE sz 7? 2O0900M4$ 


14 FELYIHETO  5:I/M5?7 I 
hétt bele hehettt ] 


Ugyanígy vigyünk fel még néhány adatot. Például: 


SORSZ, s 2 


aan ELL ARON LE Avas ELIT Áááá aaa ag eat aa snek kése atát elet EAT ED ÉT ag a ama E a e a a ee 


MEGMEV sz ? C£64 TAPEGYSETGAANNKKRNNNNNIó 
GYSZAM z 7 44-22Z27zs 
ERTEKE z 7 5900 


id FELYIHETŐ :1/M-? I 
NEZZE JAN WA EZ ZAN 


bb atta aram nag lama am tadm 58078 E0e5. Eml0m. rené e. ÖN. ÖNÖY. DLA IG aa Ér aal Ala Il GITAG ÖN8 TOMI ba kana telt tőae tneg feat ea ea 


MEGMEV zs ? 1541 LEMEZEGYSETINNN6 
GYSZAM z ? 44-—-333314 
ERTEKE ? 2ZO800M 


4 FELYIHETŐ :[/M5z?7 I 


tt 


KEZZ MATA WET ZAN 
30R5SZ. z 4 


keesesánsdeseeáeeáezesseáeeetáete etettek dtseeáseeáeseeltee eleszáteseáes eke ekes e ee teke alesenkeees vessek eset 


MEGMEYV z ? MPS-8B1 HYOMTATTJANN 
GYSZAM s 7? 44-44446 
ERTEKE z 7 490B0Mé 


4 FELVIHETŰ :I/M5s? I 


H 


u 


NEZZ AAA 178 WE 7 ZAN 
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Eddig csak új felvitelt, azaz beszúrást hajtottunk végre. Ha kívánjuk, vihetünk még fel 
rekordokat úgy, hogy kihagyunk sorszámokat, vagy akár úgy is, hogy a sorszám túllépje 
a 20-at, de a karbantartás kipróbálására már ez a négy rekord is elég. 

Módosítsuk a 3-as rekordot: 


sORSZ, s 3 


ee ea tessek öesseltee áteeleeeemeee áteseekeeáksestt ee etette e vesásezáteeeees essetek te kes elesett es essel 


MEGHEYV zs FAS HR MA d d 1 ze FÜR BE3 EZENNEL 
GYSZAM s LERERKEXé 
ERTEKE z ELTATSTTTes 


(d JUÚHET A KÖVETKEZŐ -I/Hz7? H 


Írjuk át az értéket 20000-ről 30000-re : 


5lRSd. z 

MHEGHEN so KIRe NEME I zés SET dési sé E TERÁRE ETTE 4t 
(Tés zHH :z 4 EE E TR 

ERTEKE szo? ZKTKTSTEM 

4 HOLOSITAHUN :I/Hz7 I 

HE. 7. E AM s 77 BT LL] RE E E. A 


Azokat a rovatokat, amelyeket nem módosítunk, hagyjuk változatlanul, vagyis csak a 
RETURN gombot nyomjuk meg. 
Töröljük a 2-es rekordot: 


SÜRSZ Z ez 

MEGHENY sz JRTSTC YANG ül SET st ERRKNRE BE EB 
GYE sz ZTE 

ERTEKE szo AfőIzTK te 

14 TÖRLEMÜ[I sI/Hz7 I 
BEEE A KÜ ZAN] VGA ME EZ ANN 


Átlítsuk vissza a 2-es rekordot: 


14 SOEBSZHAM sz o? 2 
Lk TÜMÜL VT EK 
4 VISSZAARLLITHATÓ sI/Hz7 I 
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MENMETNY sz 7 NYTKŰZ NANÉGT sl StgEte st BRNNNESETETE 4 
GYEzZHM oz 7 TE TEtreéntáH 
ERTEKE zo 7 aSIsIZJE 


4 FELYIHETŐN -I"Mz7 I 
BEEE AM d se VALO LN ERTE E ELER 


Kérdezzük le a 4-es rekordot: 


MEGHEN s Meaiáki tt bir Ut LETTÉL a ká 
GTrszAM zs eretet betli: 
ERTEKE z SASTSITSTSTÉEH 


4 JOHET A KÜVETKEZO sI/Hs?7 I 


Örömmel nyugtázhatjuk, hogy a program úgy működik, ahogyan terveztük. 


A relatív állományban igen kényelmesen lehet válogatni a re- 


VÁLOGATÁS ű ae B y 4 
A RELATÍV kordsorszámok mentén végrehajtott sorozatos közvetlen el- 
ÁLLOMÁNYBAN érésekkel. 


Azonban általában csak soros keresés hajtható végre, ugyanúgy, mint a soros rendezetlen 
állományoknál (34. ábra). 


A feltételek: 


— F1: ha van kiválasztott mező, azaz W nem - 0; 

— F2: ha van kiválasztott mező és válogatandó adat is, tehát W nem -0 és A$ nem -7—"; 
— F3: végrehajtandó 1-től NN-ig, egyesével; 

— FA4: ha a válogatandó adat megegyezik a kiválasztott mező tartalmával, vagyis A$-X$. 


Mivel a válogatás alapelveit a , SOROS LEMEZÁLLOMÁNYOK" című kötetben már 
tárgyaltuk, a program szerkezetéhez nem kell magyarázat. Maga a program hasonlóan 
egyszerű. 

Azzal kezdődik, hogy megnyitja az "ESZKOZOK" állományt, a parancscsatornát, és be- 
állítja a kezdőértékeket: 


TET ETETETT VET 

26 WHEN 1659515:ÚFPEM 2568.25- ESZKÖZÜK" 

Ja KI G sttsrőágá dőlés önét éltet önts erat atát eat élba éndsó GB ábétb vanda tö áltő ány elém életáb ANN atás ÖNK tbe dás lá ölt GŐ ÉGNE HÁNI ályát ElOK átgl5 etzts ümád Vál lázat KÉN öt öle tájat Glésl n" 
48 HH:zf 


HA ha ka 
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ál tás 
34. ábra. Relatív válogatá RELVALOGATAS 
program 


Fs 
Előkészit SG 


Adat bekérése[  [detörés uit [666866 
d 
Majd fejlécet készít: 


ziz o : FRIHT VALOGATAS AZ ESZKÖZÜK ALLOHARHYERM" 
z14 : FEIMT K$ 

Ezután bekéri, hogy melyik mező szerint válogasson; az M$ megnevezés, a G$ gyári szám 
vagy az E$ érték szerint: 

ezg : PRIHT" Wá1l2 MEGMEVEZES. SZERINT" 

td : "PRIHT"WK2- GYARKI SZAM SZEKRIMT" 

224 :  PRIMT"MK33 ERTEK SZERINT" 

zz6 :  PRIMT"EKAZ ——— EGYIK SEM -—--" 

ze8 : FRIMHT K$ 
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238 : PRINT"M? MELYIK s/i/g/3g/Bsz "; 


zzz :  IHFUT HE: MzeVALÉRIGHTE-(ME 157 
zz4 IF W-G ÜK W-Z THEH GÜTÓŐ Zz18 
zz6 IF [1-A THEM GOTŰ 314 


A hibás W választ természetesen nem fogadja el. Ha egyik mező szerint sem akarunk vá- 
logatni, azaz W-0 választ adunk, akkor befejezi a válogatást. 

Ha meghatároztuk a válogatás során figyelendő mezőt, megadhatjuk a válogatási feltételt 
is, azaz megadhatunk egy A$ adatot, amely ha szerepel az imént meghatározott mezőben, 
akkor a rekord kielégíti a válogatási feltételt: 


zab : FKIHT K$ 


záaz :  IHFUT"W? AUORT z —ENMI" : H3 

z34 IF A§Y-"-" THEM GÜTŰ 21€1 

246 : LsLEMH(H$2:FRINTET" 

Ha nem adunk meg válogatási feltételt, azaz ha az A$- "—", akkor nem válogat, hanem új 
mezőt kér. 


Miután definiáltuk a W és A$ válogatási szempontot, elkezdődik a válogatás. Ennek során 
a program az N rekordsorszámok mentén végigmegy a teljes állományon: 

318 : FÜK HMHszi TŰ HH 

Minden egyes rekord esetén az N rekordsorszámot az RH és RL kétszer egybájtos formára 
konvertálja, a P- 1 bájtpozícióról beolvassa a T$ állapotjelzőt, és szóközzel tölti fel a vál- 
tozókat. Ha a rekord nem üres, azaz a T$ állapotjelző nem - Tr, beolvassa a rekord adatait. . 
Végül a rekord tartalmát kiírja a képernyőre: 


szú : : RHSIHTÉ(H/z36 a: ELSH-EHEZSE 

aug ss : Fsi:GÜSUB 1418 

39a : 0: IF T$Cs"n" THEH Fs3:GŰ3IllE 1814 
zak o: 0: GÜSIJE 2818 


Most következik a válogatási szempont ellenőrzése. A program a W válasz alapján meg- 
határozott mező X$ tartalmát összehasonlítja a keresendő A$ adattal. Természetesen a 
mezőből csak az A$ adat L hosszának megfelelő számú első L bájtot veszi figyelembe: 


416 :  : OM W GOTO 438.449,458 
428 :  GOTÚ 599 

439 : :  Mé-M$E:GOTO 468 

448 :  :  X$-G$:GOTO 460 

45A : :  M$zE$:GOTO 468 

468 :  : KEZLEFT$(X8.L) 


aza : IF A£-2A£ THEM GÜTÜ 5535 


Ha az X$ és az A$ adat nem egyezik meg, a rekord nem elégíti ki a válogatási szempon- 
tot, ilyenkor a program áttér a következő rekordra. Ellenkező esetben a válogatást meg- 
állítja, hogy a rekord tartalmát a képernyőn tetszés szerinti ideig tanulmányozhassuk: 


aLd "0: FEINI "WS K$ 
azé : 0: FRIHT"MTOVHEELEFES BHEMELvT CGOMEEHL!" 
sza : : GET B$:IF E$z"" THEN GÜTÚ SzH 
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A válogatás csak akkor folytatódik, ha a billentyűzet valamelyik gombját megnyomjuk, 
amikor is a program rátér a soron következő rekord feldolgozására: 

Bed 2. HEST H 

A válogatás mindaddig tart, amíg el nem éri az állomány végét, vagyis az általunk meg- 
adott legmagasabb NN rekordsorszámot: 

aga GoürTű zim 

Ekkor a program új válogatási szempontot, azaz W mezőt és A$ adatot kér. 

Ha nem kívánunk tovább válogatni az állományból, azaz W- 0 mezőt adunk meg, a prog- 
ram lezárja az "ESZKOZOK" állományt és a parancscsatornát, majd leáll: 

Sue PRINT" 77 

SES 2: ÖLÜSE 19 

9399 EMI 

Az olvasást külön szubrutin hajtja végre: 

1918. M$Ez" . 

löz8 G$-" E$z" 8 

1628 PRINTHIS, "P"CHRECZDCHRECRLICHRECRHICHRECP) 
1848 IF Psi THEH IHFUTHZ.TE 

1658 IF P:szZ THEM IHFUTHZ.ME.G$. EG 

13953 RETURH 


Ugyancsak szubrutin végzi a rekord tartalmának a megjelenítését a képernyőn: 


zol FKIHTSA" 


zOZA FEIMT"SEORSZAH sza H 
zH33 FELHT"OALLHFOT zo ".T$ 
2848 FRIHT" IMEGHEVEZES zo ":M$ 
2ASA FERIMT"EGTYTARI SZAM zs ".ö8 
2ZHEGB PRIHT"MERTEK ms"áitt 


23393 RETLIRH 
Hasonló szubrutinokat a karbantartó programban már láttunk. 


Gépeljük be, majd mentsük ki lemezre a programot, RELVALOGATAS néven. Ezután 
indítsuk el. 


Először válogassunk a gyári szám szerint. Keressük azt az eszközt, amelynek a gyári száma 
44—3333: 


VALOGATAS HZ ESZKÖZÜK ALLUMÁHTEHH 


£15 HEGHEVEZES SZERIHT 
tzz GTHEI SZAM SZERIMT 
KESZ ERTEK SZEKEMT 
mila zzz EGYIK SEM sze 


7 MELYIK sé1/2/3/éz 22 


7 ADHT —z 7 44-—-Z5Z3 
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Ilyen rekord csak egy van: 


zÜRSZAM mz [2 


ALLAFÜT zt 

MEGHEVEZES 5 15341 LEMEZEGYSEG 
GYARI SzHAM - 44—232z 

ERTEK zo z9ARAA 


TÜVHEELEPFEZ EHEMELT GOMEEHRL! 
Majd válogassunk a megnevezés szerint. Keressük azokat az eszközöket, amelyeknek a 
megnevezése C64-gyel kezdődik: 


VALOGATAS AZ ESZKÖZÖK ALLOMANYBAN 


ci MEGHEVEZES SZEKINT 
KAESZ SZERINT 
as EmTÉK SZERIHMHT 
zzz eat BI. BET Sz 


7 MELYIK z/1/cdrzwvArz 7 1 


datá 1atá únsá a000 ta ö040. arétó E505 mmaNó MINE öaáa BIN. eheNE lt BEDE EMEL ól. áaeáe. 19000 MaEE A9Y9. ILESŐ aEON BÖÁ 1et05 sat áaaán et sol babab éa eget áyes aaem erne öanen event szet enm 


zORSZAM z 1 

ALLAFUT § 

MHEGHEVEZEZ f€é43 KÜZF.EGYS. 
G"HRI SZAM zs 44-1111 

ERTER z zOROEI 


1880 ell azt TVE ÉRE sale talan tet áá samt méts BEN0 alól AA daén eréem as ápol MON Alt anya samt Ma kád age ehett ése eaat tán aan mát tárt emet menét beat tao sét aaa. se 


TÖVHEELEFES ERRMELY GOMEERL! 


ti 


Hi 


SÜESZHR z og 
ALLARFOÜT szk 

MEGNEVEZÉS s 64 TEAPEGTSEG 
GTARI SZAM z 44-2227 

ERTEK. zo mak 


aal a0l0 see elet ém san ágát El00E 5l0E It ET ha lam elet tató e ete GYÉN EET PIE mató ág ENE TAT ere Eme karem Falrt segtó aim ages tató pang bő ENO hatat sat mén mene 


TÖVABELEFES ERRHMELY GOMBERL! 
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Végül válogassunk érték szerint. Keressük azokat az eszközöket, amelyeknek értéke 


50000 forint: 
VALOGATAS AZ ESZKOZOK 


S12" TEGNEVEZES 


ALLOMETTBAN 
SZERINT 


zzz GYARI SZAM SZERIHT 
é33 ERTEK SZEFIHT 

moz zoz s EGTTÉ SET zes ő ee esetet 
SZELETET Ke tb ŐS E St eza ze 
A ADAT zo ? SOGAG 


Ha a megadott adatokkal töltöttük fel az állományt, ilyen eszközt a program nem fog 
találni. 

Most már (0 válasszal) leállíthatjuk a programot. 

Akármilyen jól működött is a program, nem lehetünk vele elégedettek, mert eléggé pri- 
mitív, csak a válogatás alapvető menetének illusztrálására alkalmas. 


HO REMES Sze seetöz ztás sás szeszes esztést EOK TDK 
119 PRIHT"IT" 

129 ÜFEMH 153.8.13:0PEM 25852. "ESZKÖZEIK." 

138 Káz thee ose e e e áá emet hi s ee há egi ra ta mar ére hee e me e ear neme mv s ni 
149 MHz 

SZOC JEEM ezése ezsszeztezsáénen gÓziztássiszáa atása mtlzzlazi ásegzg RURTEEKERES 
219 jé HÁ 

zZiz FRIMT "VALOGATAS AZ ESZKÖZÜK ALLOMAHTERM" 
214 PRIHT H$ 

220 : FRIMT"BEK15 MEGMEVEZEZ SZERIMT" 

zzz : PRINT"9K23 GYARI SZAM SZERIMT" 

zz24 :  PRIHT"8KI32 ERTEK SZERIMT" 

z-b PRIHT"AKOZ sss EGYIK SÉN zs? 

zze FRIHT K$ 

238 PRIMHT"W? MELYIK —/1/2/3-/8/z "; 

zzz : — IHPUT H$:HEVALÉ(RIGHTE:(H$, 117 

254 IF WAg ÜK W533Z THEM GOTÓ 216 

zab IF W:9g THEH GÜTŰ 319 

zág : FRIMHT K$ 

záz : — IHPUTSWM? AURT — 0 -ENEIV FA: 

244 IF H$-"-— THEH GOTŐ 218 

z46 :  L5LEH(RA$3:PERIMT"IT" 

EM BEMS Sze gets esmeg vége me sás zezisame énje semázzte satetsése VALOGATAS 
318 : FOR H-i TŰ HH 

sza : :  FRH-IHT-(M/725367 : RL-H-RH$236 

z3zA : 0: Fs1:GOSUE 1919 
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zaga : : IF T$€-"1" THEH Fzz:G0ZUB 1818 
sza o: 0: GOSÚE 2618 


418 :  : OH KW OGOTO 438,448, 458 
429 :  GOTÚ 5939 

438 : : Ké$zM$:GOTO 468 

446 :  :  X$zG£:GOTO 469 

459 : :  X$zE$:GOTO 460 

468 : : X$zZLEFT$(X£.L) 

479 : IF K$ORS THEH GOTO 599 

síg : : PRIMT"M";k$ 

528 :  :  PRIHT"MTOVABELEPES EFARMELY GOMEBRL.!" 

szá : : GET B$8:IF B$8z"" THEM GOTUO 538 

599 :  MEXT H 

699 GOTO 218 

SÖÖ" REM- ese mese tetetetátenánámánásááe senem telen metesanáás LEZARASOK 


218 PRIHT"TT" 
978 CLOSE 2:CL0OSE 15 


19861 REÉMösnésüsészészsüs esszét ette zi neem menseszmi szeksz s (LL VHSRS 
19198 M$-" ni 
18246 Gáz" 4. a E$z" " 


1629 FPRIHTHIZ. "F"CHERÉz I CHESÉRLICHES$-ÉRHILHESEF) 
1849 IF P-1 THEM IMFUTHETE 

1658 IF F-3 THEH IMHFUTHA.M$.G$.Es 

15959 KRETIURH 

2508 RÉhfsszszsszszzszzszzszzzeezzözzmeeszzzszzemzummansiszzziMEGJIELEMITES 
zH18 FERIHT"á" 

zözA FRIMT" EEDESZHM 


zb38 FRIHT"XALLAFOT z " ;T$ 
2948 FERIHT"8MHEGMHEVEZE3 — ";M£$ 
zgnk FEIHT"UGYARI SZAM sz "63 
zo68H FEIMT"BERTEK z ";E$ 


29393 KRETURH 

Természetesen nincs akadálya, hogy a programot ízlésünk szerint csinosítsuk. Sőt, java- 
soljuk, hogy ezt tegyük is meg. A teljesség igénye nélkül néhány tippet adunk: 

A program nem használja a parancscsatornát, így hibafigyelést sem végez, pedig célszerű 
lenne, legalább a megnyitás és a pozicionálások után. Ha már figyeljük a parancscsator- 
nát, figyelhetnénk az állomány végét is, a H -50 hibakódot. Jelenleg a program meghatá- 
rozott NN számú rekordra hajtja végre a válogatást. Bekérhetné ezt az adatot a billentyű- 
zetről is, sőt akár intervallumot is kérhetne. Most már a válogatást végrehajthatnánk akár 
az állomány elejétől egy adott rekordig, akár egy adott rekordtól az állomány végéig, 
vagy két adott rekord között; ami tulajdonképpen részleges válogatást jelentene. 

A program a törölt rekordokat is válogatja, pedig az állapotjelző figyelésével kihagyhatná 
őket a válogatásból. Ugyanez a helyzet a feltöltetlen rekordokkal. Ez nem hátrány abból 
a szempontból, hogy ezeket a rekordokat is megjeleníti, így a válogatás előrehaladása 
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nyomon követhető. Persze ezt megtehetné úgy is, hogy a válogatási szempontot ilyenkor 
nem ellenőrzi, hiszen az úgysem teljesül. 

Egyébként ha tudjuk, hogy az állomány folyamatosan van feltöltve, mert például a fel- 
vivő eljárás mást nem tesz lehetővé, akkor feltöltetlen rekordok csak az állomány végén 
lehetnek. Ez esetben az első feltöltetlen rekord elérésekor leállíthatjuk a válogatást. 

A válogatási szempont teljesülésének figyelésekor a program csak azt ellenőrzi, hogy a 
mező az adott A$ adattal kezdődik-e. Könnyen megoldható lenne a figyelés úgy is, hogy 
az adott A$ jelsorozatnak az adott mező tetszőleges helyén való előfordulását ellenőrizze 
a program. Ez jóval szélesebb körű válogatást tenne lehetővé; így például kiválogathat- 
nánk azokat az eszközöket, amelyeknek a megnevezésében szerepel a "NYOMTATO" 
jelsorozat. 

Tovább finomíthatjuk a válogatást, ha a fenti figyelést csak a szöveges mezőkre engedjük 
meg, a numerikus mezőknek nem a karaktersorozatát, hanem a numerikus értékét figyel- 
jük. Ez esetben nemcsak az -, hanem a d és - relációknak is van értelme a válogatási 
feltételben. Így például kiválogathatnánk azokat az eszközöket, amelyeknek értéke 5000 
Ft felett van. 

Programunk csak képernyőre válogat. Nem okozna nagy gondot az sem, hogy a kiválo- 
gatott eszközöket nyomtatóra is kilistázza, akár úgy, hogy ez a lista a teljes rekordot 
tartalmazza, akár úgy, hogy csak az eszköz azonosításához szükséges adatokat írja ki. 
Még jobb, ha a program mindkettőt tudja, és a gépkezelő döntheti el, hogy hová kéri 
a válogatást. Még nem túl bonyolult egy olyan válogatás sem, amely automatikusan a 
képernyőre válogat, és a gépkezelő a kiválogatott rekordok ismeretében utólag dönthet, 
hogy kér-e róluk nyomtatott listát, avagy sem. Ilyenkor az is megoldható, hogy csak a 
gépkezelő által kiválasztott rekordokat tartalmazza a lista. 

Eddig mindig csak egy adott mező szerint tudott programunk válogatni. Valamivel bo- 
nyolultabb, ha egyidejűleg több, akár az összes mező szerint végrehajtható a válogatás. 
Ez akkor a legegyszerűbb, ha az egyes mezőkre kirótt válogatási feltételek között csak 
logikai "ÉS" (AND) kapcsolat áll fenn. Így például kiválogathatók azok az eszközök, 
amelyeknek a megnevezése C64-gyel, a gyári száma pedig 44-gyel kezdődik, és az értékük 
nagyobb mint 10000 forint. Nem jelent nehézséget az sem, hogyha több, de nem az 
összes mező szerint akarunk válogatni; ilyenkor a vizsgálatból kihagyott mező tartalmát 
egyszerűen nem figyeljük. Ugyanez a helyzet, ha az egyes feltételek között kizárólag 
logikai "VAGY" (OR) kapcsolat áll fenn, ámbár az ilyen válogatásnak kisebb a gyakor- 
lati jelentősége. 

Érdekesebb, és gyakorlati szempontból nagyobb jelentőségű az a válogatás, amelyben az 
egyes mezőkre kirótt feltételek között AND és OR kapcsolat vegyesen is előfordulhat. 
Ennek megvalósítása azonban már meglehetősen bonyolult, hiszen nemcsak a mezőt, 
valamint az abban előforduló adatot kell bekérni és figyelni, hanem a feltételek közötti 
logikai kapcsolatot is, és a figyelést ezeknek megfelelően kell megszervezni, illetve végre- 
hajtani. 

Még ennél is bonyolultabb, ha mindezen felül az egyes mezőkre összetett feltételeket is 
megengedünk. Például összetett feltétellel válogathatók ki azok az eszközök, amelyek- 
nek az értéke legalább 10000, de legfeljebb 40000 forint. (Itt a feltétel: E2-10000 AND 
Eg - 40000.) Hasonlóképpen kiválogathatók azok az eszközök, amelyeknek a megneve- 
zésében vagy a "KOZPONTI", vagy a "LEMEZ", vagy a "NYOMTATO" szövegrész 
szerepel. 


, 
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Az összetett feltételes válogatás persze csak akkor bonyolult, ha teljesen általánosan akar- 
juk megoldani; azaz minden feltétel, valamint a köztük levő logikai kapcsolatok megadá- 
sát a gépkezelőre bízzuk, aki teljesen szabadon választhat közülük bármilyen kombiná- 
ciót. A gyakorlatban erre azonban ritkán van szükség, hiszen sok kombináció egész egy- 
szerűen értelmetlen, sőt még az elvileg értelmes válogatási szempontok nagy részére 
sincs gyakorlatilag szükség. A kombinált válogatás tehát lényegesen leegyszerűsíthető, 
ha a válogatási szempontok egy előre megtervezett készletéből lehet csak választani. 
Bizonyos esetekben további egyszerűsítést eredményezhet a többmenetes válogatás alkal- 
mazása. Ez azt jelenti, hogy a válogatóprogram az adott szempont szerint kiválogatott 
rekordokból egy új állományt hoz létre, amely azután ugyanazzal a válogatóprogrammal 
egy másik szempont szerint tovább válogatható, a szempontokat megfelelően cserélve 
akár többször is. Ilyenkor kell egy külön listázóprogram, amely a végső lemezállományt 
képernyőn vagy nyomtatón megjeleníti. A válogatott állomány persze már lehet egyszerű 
soros állomány is. Különbséget kell tenni az elsődleges válogatás és a másodlagos váloga- 
tások között; az előbbi az eredeti relatív állományon hajtódik végre, az utóbbiak már a 
válogatott soros állományokon. Esetenként gyorsabb, de mindenképpen helytakaréko- 
sabb a válogatás, ha a válogatott soros állomány nem magukat az eredeti relatív állomány- 
ból kiválogatott rekordokat, hanem ezeknek csak a rekordsorszámát tartalmazza. 

A leghatásosabb egyszerűsítési mód azonban az átgondolt és előrelátó adatszervezés. 
Ha a rekordot a lehetséges válogatási szempontok figyelembevételével" építjük fel, és a 
mezőket, illetve az adataikat ennek megfelelően állítjuk össze, igen egyszerű válogató- 
programmal is kielégíthetjük az igényeket. 

Tekintettel arra, hogy az igények általában nem egyidejűleg és nem egyforma gyakori- 
sággal jelentkeznek, sokszor az a legjobb megoldás, ha nem egy mindent tudó válogató- 
programot írunk, hanem több speciálisat, amelyek mindegyike csak egy-egy meghatáro- 
zott szempontrendszer szerint tud válogatni. Az ilyen programok az igények szerint egy- 
mástól függetlenül futtathatók, és mivel kisebbek és egyszerűbbek, gyorsabban betölt- 
hetők, könnyebben kezelhetők, egyszerűbben módosíthatók. (Ennek különösen a 
COMMODORE esetén van jelentősége, ahol a tárkapacitás szűk keresztmetszet.) 
Mindezeket a válogatási lehetőségeket csak megemlítjük, de nem mutatjuk be, hiszen so- 
rozatunk e kötetének célja végül is nem a válogatási módszerek, hanem a random és 
relatív állományok kezelésének bemutatása. 

Mindazonáltal a bemutatott mintaprogram alkalmas a különböző válogatási lehetőségek 
kipróbálására, hiszen szerkezete nem az adott feladathoz, hanem a válogatás általános 
alapelveihez igazodik, így bármilyen válogatóprogram váza lehet. Ezért javasoljuk, hogy 
aki komolyan akar foglalkozni ezzel a témával, az említett módosításokat, legalábbis 
az egyszerűbbeket, fokozatosan építse be a mintaprogramba, az egyes változatokat ala- 
posan tesztelje és elemezze. 


Mint láthattuk, mind a random, mind a relatív állományok- 
nál kulcskérdés volt, hogy milyen összefüggést tudunk találni 
vagy létesíteni a rekordok és a tárolási helyük között. 

Általában szükséges, hogy minden rekordnak legyen egy azonosítója, azaz egy olyan 
adata, amely megkülönbözteti a rekordot az összes többitől. Egyszerűsíti a helyzetet, 
ha ez az adat egyedi, azaz a rekordot egyértelműen azonosítja. Ilyen például egy dolgozó 


LEKÉPEZÉSI ELJÁRÁSOK 
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személyi adatait tartalmazó rekordban a személyi szám. Nem ilyen viszont a dolgozó 
neve. Egy munkahelyen több KOVACS JANOS is dolgozhat. A név tehát nem azonosít- 
ja egyértelműen a rekordot. Sok esetben azonban meg kell elégednünk az ilyen azonosí- 
tóval is, ami természetesen a rekordok kezelését megnehezíti. 

A rekord és a tárolási hely közötti összefüggés azt jelenti, hogy a rekord azonosítója 
alapján meghatározható egy cím a lemezen, ahol a rekord tárolható. Ez a cím lehet ab- 
szolút, mint a random állománynál, ahol egy adott sávcímből és szektorcímből áll. De 
lehet relatív is, mint a relatív állománynál, ahol az állomány fizikai kezdetétől számított 
rekordpozíciót jelenti. 

Azt az eljárást, amellyel a rekord azonosítójából meghatározzuk a rekord (abszolút vagy 
relatív) címét, leképezési eljárásnak vagy röviden leképezésnek nevezzük. A leképezésnek 
több fontos tulajdonsága van. Ha fel akarunk használni egy leképező eljárást, alaposan 
tisztában kell lennünk ezekkel a tutajdonságokkal, hogy eldönthessük, alkalmas-e az adott 
feladatban szerepének betöltésére. 

Javasoljuk, hogy a leképezési eljárásokat a tényleges felhasználásuk előtt a tárban pró- 
báljuk ki és teszteljük le. Ez nem nehéz, hiszen akár a random, akár a relatív állomány 
lemezterületét könnyen szimulálhatjuk a tárban. A relatív állomány esetén ez egy egy- 
dimenziós tömb (vektor), amelynek minden egyes eleme egy-egy rekordot jelent, és az 
elemek indexei a rekordsorszámok, azaz a relatív címek: 


RELATIV" LEKEPEZES 


a) A Ba) HI hw] 


emeerterrr lee eetezrer [e rrterrrra 


LENT TERB TAG EY BAT VA TAG TAN HR TEK A TA TAG VAY RARG TANT TAR ABN VGA GENT TART TÁG TART TAP EAN 
7 [dj ss [a zú) 


A random állomány esetén pedig egy kétdimenziós, 35-ször 20-as tömböt (mátrixot) 
kell használnunk, amelynek minden egyes eleme egy-egy blokkot jelent, és az elemek 
sorindexe a sávcím, oszlopindexe pedig a szektorcím. Ezek együtt adják az abszolút 
blokkcímet: 


RAMDOH ! EHEFEZES 


B1234567590ü1234387é590Ü 
ErrertereerrimriTiertarerő 
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fr FÖL GA TAT TAPTAY KT TA TAN AT TE, ZAR VAS TARR TAVAT TAT TAR TAN Ve 
Bizz4ersgálz3s4a6ra3b 


Itt kissé bonyolítja a helyzetet, hogy a tömbnek nem mindegyik eleme használható, 
hiszen nem mindegyik tömbelemnek felel meg létező, illetve a random állomány számára 
felhasználható blokk. (Ezeket "—" jellel jeleztük.) Ugyanis 0-s sáv nincs, a belső sávokon 
kevesebb szektor van, a 18-as sávot pedig a lemezkezelő a lemeznyilvántartáshoz hasz- 
nálja. 

Célszerű olyan tesztprogramokat írni, amelyek a relatív, illetve random állományok he- 
lyett ilyen tömböket definiálnak; alkalmasak arra, hogy bármilyen adott (billentyűzetről 
begépelt) rekordazonosítót leképezzenek a tömbre, azaz meghatározzák a rekord címét 
(indexét), és a megfelelő tömbelembe egy jelet tegyenek, majd a gépkezelő kérésére a 
tömböt megjelenítsék. A leképező eljárást cserélhető szubrutinként kell tartalmazniuk. 
Relatív állományok esetén ez a tesztprogram például ilyen lehet: 
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190 
119 
128 
136 
198 
195 
zga 
219 


220 : 


238 
389 
219 
320 
339 
340 


39390 : 
369 : 


33939 
499 
419 
429 
425 
4z6 
434 
436 
449 
4538 


460 : 
479 : 
488 : 
498 : 
499 : 


319 
5339 
616 
615 
616 
628 
3399 


REM—-—— chose esése ee emet temetesen HEJELEHTKEZES 
PRINT" 

PRIHT" RELATIV LEKEPEZES" 

PRINT" mosnom oson a 

Ez3:MHN-58 

DIM RE£(HHI 

REM-— hee ese e e mááá án erem mem me mene tesen BERLLITAS 
FOR Iz1 TO HM 

RESCIJa!:§ 


REM boe tm ör tt iv hi ta hág úg het Ea tl ás sa bm a ize a HEY mm rre aal tagi ja em fa gy ége KA tr ta mase mm et FELTOLTES 
IHPUT"W REKORDS"5R$ 

IF R$z-"—-" THEM GOTO 418 

:  GOSUB 1819 :BREMszs LEKEPEZE5 

IF R-B THEM GOTŰ 318 

PRIMT"TY; TABC2532 5 "tIHEz":R 

RE$(fRöz"g 

GOTÓO 319 

REA e se és éa éra ímat tám tá ágon a ti ist tre aa sé égek a ró tc iga meri ea tam mg tm em IEGJELEMÍTES 
PFRIMNT"77" 

OPEM 4.E 

PRIMHTH4, "RELATIV LEKEPEZES" : fágjslkő heg 

PRIHTHA4," ha) [7] [/ isa) v4 
PRINTH4, " BsRA s zeVETB STSGNBE S e téltrv ég ENBER HK SE 
FRIMHTH4 

ság Iz1i1 TO HM STEP 38 

PRIHTH4á. RIGHTEC" 0"4STREKI2 398"; 
kKzIt39-1 

IF K2HM THEH KsNH 

FOR JsI TŰK 

: . PRIHTH4 . RESKJ/: 

MET J 

FRINTH4. SPCC39-KPIJ:RIGHTEC" "435TRE(KÍ 37 
MEXT I 

PKIHTH4 

FRINTHA," MölözES szállás ő Zn sjar ááá ajjögözságt és sza ps 
FRIMHTH4, " haj) [4] taj íg haj 

CLOSE 4 

EMI 


1899 REhszzsesesseszestemeetmesmierszzeétmmmeunzzsssztéteül EKEPEZES 
1818 R:-A 
1993 RETURN 


110—130: A program bejelentkezik. 


190 


: Definiálja a relatív állomány rekordjainak NN számát, valamint a megjele- 
nítésre használt eszköz E egységszámát. 
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199 
210 


: Definiálja a relatív állományt szimuláló RE$ tömböt. 


—230: Feltölti ezt a tömböt egy egyezményes jellel. 


310—399: Bekéri a rekord R$ azonosítóját, leképezi az állományra (tömbre) , megadja 


a rekord R címét (indexét), bejegyzi az RE$(R) rekordba (tömbelembe), 
hogy azt már leképezte, majd újabb R$ rekordazonosítót kér. Ha "—"" le- 
állítójelet kap, áttér a tömb kiírására. 


410—999: Megjeleníti az RE$ tömböt a megadott E egységen, majd leáll. Hogy a kép- 


ernyőre is kiférjen, a tömböt 30 rekordos (elemű) szakaszokra bontja. 
Minden szakasz elején és végén megadja a szakasz első, illetve utolsó rekord- 
jának (elemének) a rekordcímét (indexét). A többi cím (index) ábráról való 
leolvasását megkönnyíti az ötösével és tízesével tagolt fejléc és lábléc. 


1010—1999: Ide kell kódolni a leképező eljárást, amelynek bemenő paramétere az R$ 


rekordazonosító, kimenő paramétere pedig az R rekordcím (index). Siker- 
telen leképezés esetén ennek értéke nulla. 


Megjegyezzük, hogy az állomány méretét és a kiíró (output) eszközt a 190-es sorban szük- 


ség szerint megváltoztathatjuk. 
Random állományok esetén a program teljesen hasonló szerkezetű; csupán a tömb keze- 


lésében tér el: 


188 
116 
128 
138 
1598 
199 
290 
210 
zzB 
rege] 
z4A 
zJB 
260 
zrO 
200 
ela[ 
al8 
szd 
330 
349 
358 
z69 
33939 
48a 
419 
428 
425 
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REM-——— eme me mez eme semen mma BEJELENTKEZES 
PRINT" 

PRIMT" RAMDOM LEKEPEZES" 

PRINT" nme sam en enn 

Ez3 

DIM RR$C35, 29) 

REM —————— hee ee ee mm team tm te BERLLITAS 
FOR Iz1 TO 35:FOR Jzg TO 28 

:  RASCI, Jom: " 

MEXT J:MEXT I 

FOR J8O TO 28:RASCIB,JIz!-":MEXT J 

FOR I519 TO 35:RA$CI,289z4-":MEXT I 

FOR I519 TO 35:RA$CI,19952"-":MEXT I 

FOR 1525 TO 35:RA$(I,1895"-":MEXT I 

FOR I531 TO 35:RA$C(T,17)5s"-":MEXT I ; 

REM-———— em mooe eomer FELTOLTES 


INPUT"M REKORŐS": RE 

IF R$z"-" THEN GOT 418 

: G0SUE 1819 :REMszz LEKEFEZES 

IF T:A AMD Bs THEM GOTO 318 

: . PRINT"TT"; TABC2O 3; "CIMESS GT". "B 
RHA$E(T,Boz"4" 

CGOTO 3168 

ÍR EZT Ete éettásój áá rt érés leó Pl as ea má ÉT ré kv szt zi öt mad tré ére MEGJELEMITES 

PRIHTEMT" 

ÜFEM 4.E 


PRIMTH4, "RAHDOM LEKEPEZES" 


426 FRIHTH4 


439 PRIHTH4." RISZASE TEAR IZ Z4SETSZA" 
435 PRIHTH4." ArrrrtarrirrrrtrrrTirz" 
436 PRIHTH4 


449 FOR I51 TO 35 


45a PRIHTH4.RIGHTECT" OO" HETRECI2 Za t !; 
468 IF [7218 OR E53 THEM GOTN 488 
4á7A : : GET B$£:IF E$z"" THEN GOTÜ 478 
438 : FOR J-A TO 28 

499 : : . PRIMTHA.RASCI JA; 

499 : HEAT J 

J3ig : PRERIHTH4 

399 MEAT I 

€19 PRIHTH4A 

614 FERINTH4." Reed 11 
£15 PRIHTH4," HIz34536Frzgglez4Sbragki" 
sző CLOSE 4 

994 EMI 

1988 REllzzzsszszeszszemsszmemieismeemsmmeszermszensszeszss LL ÉKEÉPEZES 


1818 TsH:Es5B 
1999 KETURH 


110—130: 


190 : 


199 : 


210—280: 


310—399: 


410—999: 


1010—1999: 


A program bejelentkezik. 

Definiálja a megjelenítésre használt eszköz E egységszámát. (Az NN állo- 
mányméretre itt nincs szükség, hiszen ez a lemez szerkezetéből adódik.) 
Definiálja a random állományt szimuláló RA$ tömböt 35 sávra, sávonként 
21 szektorra. 

Feltölti ezt a tömböt egyezményes jelekkel. A nem használható blokkokat 
(tömbelemeket) eltérő jellel írja felül. 

Bekéri a rekord R$ azonosítóját, és leképezi az állományra (tömbre). Meg- 
adja a rekord címét T sávcím (sorindex) és B szektorcím (oszlopindex) for- 
májában. Bejegyzi az RA$(T,B) rekordba (tömbelembe), hogy már leké- 
pezte, majd újabb R$ rekordazonosítót kér. Ha "—" leállítójelet kap, áttér 
a tömb kiírására. 

Megjeleníti az RA$ tömböt a megadott E egységen, majd leáll. A tömböt 
sávonkénti bontásban (21 elemenként) írja ki. Minden sávhoz oldallécben 
megadja a sávcímet (sorindexet). A szektorcímeket (oszlopindexeket) a 
fejlécben és a láblécben tünteti fel. Ha képernyőre ír, a 18. sáv előtt meg- 
áll, hogy a lista ne futhasson ki a képernyőről. A kiírás bármely gomb 
megnyomására folytatódik. 

Ide kell kódolni a leképező eljárást, amelynek a bemenő paramétere az 
R$ rekordazonosító, a kimenő paraméterei pedig a T sávcím (sorindex) és 
a B szektorcím (oszlopindex). Sikertelen leképezés esetén ezek értéke nulla. 


Tulajdonképpen a random állományok leképezésére nincs igazán szükségünk, mivel az 
esetek többségében az indextábla megfelelő megoldást jelent, és többnyire jobb is, mint 
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az általában igen bonyolult leképező eljárás. A programot egyrészt a teljesség kedvéért 
mutatjuk be, másrészt bizonyos leképezési sajátosságok illusztrálására. 

Ezek közül az első a címtartomány, ami nem más, mint a megengedett címek halmaza. 
A lemez és az állományszervezési módok fizikai sajátosságai miatt ugyanis a lemezkezelő 
csak bizonyos címeket fogad el. A random állományok esetén a rekordcím csak létező 
blokk abszolút címe lehet. Relatív állomány esetén a relatív cím, azaz a rekordsorszám 
csak 0-nál nem kisebb és 65535-nél nem nagyobb egész szám lehet. 

A címtartományt tovább szűkíthetik egyéb járulékos feltételek. Ilyen például a relatív 
állományoknál a rekord hossza, mivel az állomány nem foglalhat el 167132 bájtnál na- 
gyobb területet a lemezen; Így mondjuk 200 bájtos rekordok esetén a címtartomány 
felső határa 835. Random állományoknál például a 18-as sáv az ott tárolt lemeznyilván- 
tartás miatt nem használható, noha a címei létező blokkokat határoznak meg, ezért a 
random állományhoz legfeljebb 664 blokk tartozhat. A címtartomány tehát nem az el- 
méletileg lehetséges, hanem az adott állomány esetén gyakorlatilag használható címeket 
foglalja magában. 

A relatív állomány címtartománya mindig folytonos; az első rekord címétől az utolsó 
rekord címéig tart. A random állomány címtartománya ezzel szemben szakaszos (diszk- 
rét), a lemez használható blokkjainak címére terjed ki, az (1,0)-s blokktól az (1,20)-asig, 
majd a (2,0)-stól a (2,20)-asig, és így tovább, a (35,16)-os blokkig, kihagyva közben 
a nem létező, illetve nem használható blokkokat. A leképező eljárás tehát csak akkor 
használható, ha az aktuális címtartományra képez le. 

Tekintsünk egy olyan random állományt, amelynek a rekordjait a dátum azonosítja, 
pontosabban a hónap és a nap. 

Ha most olyan leképező eljárást választunk, amely a hónapból sávcímet, a napból szek- 
torcímet képez, akkor címtartományon kívüli címeket is elő fog állítani: 


jan. 1. azonosító: 0101 cím:  1.sáv 1. szektor 
nov. 18. azonosító: 1118 cím: 11.sáv 18. szektor 
feb. 26. azonosító: 0226 cím:  2.sáv 26. szektor 


Ezek közül az első kettő még létező blokkcím, de az utolsó már nem az. Sőt nem ez az 
egyetlen; többek között minden hónap 20. napját követő napok rekordjai ilyenek lesz- 
nek. 

Ha a leképezést úgy választjuk meg, hogy a napból képezze a sávcímet és a hónapból a 
szektorcímet, akkor ez a hiba elkerülhető: 


jan. 1. azonosító: 0101 cím:  1.sáv 1. szektor 
nov. 18. azonosító: 1118 cím: 18.sáv 11. szektor 
feb. 26. azonosító: 0226 cím: 26. sáv 2. szektor 


Most azonban új probléma áll elő; a 18-as sávra is leképződnek rekordok, márpedig ott a 
lemeztérkép és a tartalomjegyzék van. Úgy kell tehát módosítanunk a leképezést, hogy a 
18-as sávra kerülő rekordokat a 32-es sávra képezze le: 

1919 T:9g:B:O 

1829 HSINTCVALALEFTE (R$, 2229 

1939 NsSINTKVALKARIGHT$(R$.212) 

1948 IF H£1i OR KS12 THEN GOTO 1999 
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1829 IF H-Z1 OR MH-631 THEH GOTO 1993 
19£0 T5-H:BsH 

1878 IF Ts13 THEM T-32 

1593 RETURH 


Építsük be a random leképezéshez készített programba, és futtassuk le az előbbi ada- 


tokra. 

RAHDOM LEKEFEZES 

REKÜRŐz?7 A1A1 CIMEz 1 ; 1 
REKORIIS? 1118 CIMEs 32 : 11 
REKORÜUSz7 AZZS LIMEz 28 , 2 


REKORUZ? - 


RAMNDOM LEKEPEZES 
B1234567290123456739M 
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Tez EG TAN TA TAVAT TAN TARTA TÓT TAR TA TAK TAT NAB TAN TAT TAT E 
BIZ345675981234067598A 


Az eredmények azért érdekesek, mert rámutatnak a leképezési eljárások sajátosságaira. 
Ha a rekordazonosító változtatás nélkül meghatározza a rekordcímet, akkor a leképezés 
közvetlen. 

A példa szerinti majdnem ilyen, hiszen a nap közvetlenül meghatározza a sávot, a hónap 
pedig a szektort, a 18-as sáv kivételével. Itt tehát a leképezés egy címkiszámító eljárásra 
épül. Az ilyen leképezést közvetettnek nevezzük. 

Mivel általában meg kell akadályoznunk, hogy a képzett cím kimutasson a címtartomány- 
ból, a gyakorlatban szinte alig használunk közvetlen leképezést. Különösen igaz ez a ran- 
dom állományok esetén, ahol a címtartomány eléggé szűk, és nem összefüggő. 
Megjegyezzük, hogy az indextáblás eljárás tulajdonképpen egy speciális- közvetett leké- 
pezés, amely minden rekordazonosítóhoz az első szabad blokk címét rendeli hozzá. 

A leképezés igen jellernző tulajdonsága, hogy a rekordokat hogyan , teríti", azaz hogy az 
adott rekordazonosítókból képzett címekkel mennyire fedi le a címtartományt. Ez a 
tulajdonság meghatározza a leképezés gazdaságosságát abban a tekintetben, hogy meny- 
nyire használja ki a lemezterületet. Ilyen értelemben a most kipróbált leképezés nem hé- 
zagmentes. A 32. sávtól felfelé minden sávot teljesen üresen hagy, de az alacsonyabban 
fekvő sávokon is csak az 1-től 12-ig terjedő szektorokat használja ki. 


Próbáljuk meg ugyanezeket a rekordokat egy relatív állományban tárolni. Tekintettel az 
eltérő címtartományra, itt más leképező eljárásra van szükségünk: a rekord címe legyen az 
adott hónapot megelőző hónapok napjainak, valamint az adott dátumban lévő napok 
számának összege. Az egyszerűség kedvéért minden hónapot 31 naposnak tekintsünk: 


jan. 1. azonosító: 0101 cím: 1 (-03e31t1) 
nov. 18. azonosító: 1118 cím: 328 (-102631118) 
feb. 2. azonosító: 0226 cím: 57 (-13631126) 


A címtartomány tehát 1—372 lesz. Ennek megfelelően a leképező eljárás: 


1918 F-f 

1828 HsIMT(VALELEFTE (R$.2497 

1839 MH-IMT(VALÉRIGHTEÉCK$ 211) 

1848 IF HA1 OR H-1z THEM GOT 19399 
1058 IF MCT1 ük H531 THEM GÖTŰ 1999 
18E£09 FR-fH-19$51-§H 

19293 RETURH 


Ezt gépeljük hozzá a relatív leképezést tesztelő programunkhoz, és próbáljuk ki a fenti 
adatokkal. 


FIGYELEM! 
Ne felejtsük el a 190-es sorban az állomány méretét NN-372 értékre módosítani! 


Ha megnézzük a leképezés eredményét az állomány teljes feltöltöttsége esetén, láthatjuk, 
hogy ez a leképezés sem hézagmentes: 


RELATIV LEKEPEZES 


kej A tat) 12) sw) 
memrertrrrr later [deretTTTTTTi 


a ET SELAÁ SB SEN GNSZG 98 lé ENE A EG ÖN HAS: dr Vh ARS Hg. HR SÁG AÁG 2 2 Hl lev éé-1AN at KE 
KT rá A EAK ét teotnlel ba ELÉ lő a ÜL RE E. AE e BE E 69 
T zh URNNRESSGE SEEK SZT a EE S TAL E BÁ I TEGÉ ZEL ak NE TÉL A EZÉS kel e! 
a 2 ÉSE ő ARE KEK ágat E TEO Ste E ŰL e SE LETT AAL EE EE va 

 Eorvdjr EBAÉS 85 E AE S RÉ SÁLAT SETA MG lat VALE TRY éb TTL MSAT SAE evett Me 4 
; tk. 94 VLRÉSAá8 288 198 EZA Ht- VS ált HV ÉG TEK, VAA AR EE HEG OL AE ÉL HÉA. CS G ÖK 19 EBEÉ Ú - 
ÚT edz Mt Etzel DÉR TO ál haj SANT KE JÁN ÁRL AES A : 2108 
dt) Vr KÖNGR JT Va lb rá Él 6 ÖS SZE gt ák HÁT OS E TEAR IE I HTk 1 IA VEN GE AETR EE 3 11) 
a, 4, B al 188 e ek aba tét ár -E- aal ÖL 1A bet ő ek SL AE NE új 

Ász MLS KER EE E HERE aA TE tk ÖK EGE MÉCÉ A Bek TATE 1 ÖLE VEZET VE 1 1112) 
TT A TIT A ETET EEG EE EA Ea APT a: 
che b) MNTEGERÉ HÜ NEL HELENE Ot se tak AR SÓ SEL NEE ZÉTA EZEL ON 1 3 
sz! oda llTEBE atos SAL AtA lőt SEAN HHÉLVEt at Ke A 


DROA TAGT TAGRA VAR TRY ERT TANAR TÖRV KV RT TANY ER TANK KEN JEG HNK TERMEN HET Ő 
sz B 30) a ar] 


A 31 napnál rövidebb hónapok , hiányzó" napjainak megfelelő rekordok helye mindig 
szabad marad. E leképezés másik jellemzője, hogy egyértelmű. Ez azt jelenti, hogy két 
különböző rekordazonosítót soha nem képez le ugyanarra a címre. Ennél erősebb meg- 
szorításnak is eleget tesz: egy adott rekordazonosítót mindig ugyanarra a címre képez le. 
További előnye, hogy kis ráfordítással hézagmentessé is tehető: a hónapokat ne egysége- 
sen 31 nappal, hanem a napjaik tényleges számával vegyük figyelembe, azaz ahányadik 
napja az évnek a dátum által meghatározott nap, annyi lesz rekordjának címe is. (Az egy- 
szerűség kedvéért tekintsünk el a szökőévektől.) Ekkor a címtartomány is rövidebb lesz; 
csak 1-től 365-ig tart. 


jan. 1. azonosító: 0101 cím: 1 
nov. 18. azonosító: 1118 círni 322 
feb. 26. azonosító: 0226 cím: 57 


A megfelelő eljárás listája a 136. oldalon látható. 


Ezt is kipróbálhatjuk, NN-365 elemű állománnyal. 
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1919 F-A 

1928 HszIMHTÉVAL(LEFTE (R$.2192 

1058 MzsINTCVALÉRIGHTE(R$ 220) 

19849 IF H-1 0R H2íz THEN GÜTM 159399 
18238 L531:IF H5-2Z THEM L528 


19E£9 IF Htc4 OR H-é OR Hz3 ŰR H-11 THEH LESA 


19789 IF HCi1 OR M5L. THEM GOTO 155939 
1119 : R-B:IF Hs1 THEN GÜTO 1718 
1128 : FOR Iz1 TO H-1I 

1178 : : L531:IF I52 THEN L5s25 


114a : : IF Is4 OR I5s6 OR I-c59 OR I5r11 THEN L.-S5A 


1159 : : Rs5sR4L 
1160 : NEXT I 
1218 RzsRtH 

19939 RETURN 


RELATIY LEKEPEZES 


eesestesdve testes eeáeeáeszteztestesemáuáetáee 


REKÜRŐ-? 8181 CIMEs 1 
REKÜRDÜSs7 1118 CIMEz 327 
REKORÜÖS?7 A226 CIMEs 37 


REKÖRÜZ7 — 
RELATIV LEKEPEZES 


5 A av) a pal 
eeerteteeeleeerteeeeeimerittrimeri 


ITT TÉR EREL TAL lle ofoc tál Hl KÖR HOÖS OBA 1EN S SEEK TÉL AL VR VEK ERO ÁK EC AE ÖR AE EEEN: 

az ú KNÉR gátat HA RK VEGRE H-T VNE zött VÖ Hl ra Alte be-bb alk Ea E E b s] 

ln ÖNÁLLÓ 8ake fée e BE Höe 788 :1A ÉVE VB Sk Vb AS ÖR TELLEG FG VÁG Re ÖOSEL NÉ VÖ ama 

to: EL [egek Sákostáát Et JAG ANNE ést KÖR AK ÖR lt Ab. 1áR TELVE a HÁZA lak ör VAa Vö: TÉRCYt BC aA TEL ZH PO7A a 

6 A ligstegáet ÜL ÁGK KÖZBE AÖRLZAB MEGŐK lB EZREK HAI HL VÉT HT. HK As VÉGK HZ HE 75 E HEC ÁK AE EE he) 5) 
EÁ SZORA e LR baze BEEE bb zik ége US 
8 jó VÖVÖRYEZSESTB SEGA 99éL te Köd 6 BB JRE HB öbk Za HEBT- Hg, 188 Salt ANT VB 261 IA LEBEN ZELLER Ahh Hi 7. 
562 dés 68, ERNEK SARA ÉG RAN EB 18 EH ÖREL VR HRŐE KÖR BAt TALK TE CG TÖR TÖK) TÁLAT EAT HE HT AAK LG al 111] 
ZELLN vetnek te ev at áz kid beha sret ty Ő 
EY a ELTE NETEN ETTE Te PRÉS e vasa ks: JNV 
TAT e Zak hl As o bob 4 ae dkő bt0e k.k ed. Aa0 
7. a Ja IL ZREYar SÁRA Hb V6 ÖV ZÉ VK LK VE CE VÉ 1ŰSTÉE HÉ E Vá EG ÉT AE VEL HK GETE 1. ] 
SB SA 11i 365 


LA BY HÁÁT HVT VAL VA MAT MAT BV KN TA TPVT VERE TÁV VAN KAP TAN TAN TAP TAPIA HET TANÁRRA 
ja) kj 5 a 5 
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Ez a leképezés tehát nemcsak egyértelmű, de hézagmentes is. Tulajdonképpen mindig ez 
lenne az ideális. Sajnos hátránya, hogy viszonylag ritkán sikerül ilyet találni. A leképező 
eljárást ugyanis nemcsak a címtartomány befolyásolja, hanem a lehetséges rekordazono- 
sítók halmaza is. 

Vegyünk egy másik példát. Az azonosító most ne numerikus, hanem szöveges legyen, 
mondjuk minden esetben egy betűvel kezdődő név. 

Legyen a leképezési eljárás az, hogy a név első betűjének ASCII kódját vesszük: 


azonosító: ALFA cím: 65 
azonosító: BETA cím: 66 
azonosító: GAMMA cím: 71 


Mivel a relatív állománynál mindig 1-től indul a címtartomány, jócskán hézagos lesz, 
hiszen az 1—90 terjedelmű tartományból csak a 65—90 részt használjuk ki. A leképezés 
azonban könnyen hézagmentessé tehető, és a címtartomány 1—26 terjedelműre csök- 
kenthető, ha az ASCII kódból levonunk 64-et: 


azonosító: ALFA cím: 1 (-65—64) 
azonosító: BETA cím: 2 (-66—64) 
azonosító: GAMMA cím: 7 (-71-—64) 


A leképező eljárás ekkor: 

19198 RA 

1928 LSASCOREH"RD"-64 

1838 IF L251 AMD LCs26 THEM R-L 
1999 RETURHM 

A hatása pedig: 

RELATIV LEKEPEZES 


05 90000 s tatai tát ON át. eáal a ező tata. aga maa ál ést. mats. me 


REKORDS? A LIMEz 1 
REKÜRUS?7 B tIMEs 2 
REKORÖS7 G fIMEz 7 
REKÜRÜzS? D CIMEsz 4 
REKORIIS? EP CIMEz 23 
REKORDS7 ET TIMES 2 
REKORUS? - 


RELATIV LEKEFEZES 


wa] [a] re] a ba) 
mamrrtereerirrertrerirlrrrtererrra 


ip dél ij tr ri rri píz pg bt sit? 26 


TAG TENY TANT TGV RA VA ART IRT BA TAN TORT TT VÁG TAFT KR KRT TATRA TT VAN TA TAT ANY ZRNNYARBAB 
b) B bei a sa 
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Látható, hogy ez a leképezés egyszerű, hézagmentes, de nem egyérfelmű. Az EPSZILON 
és az ETA rekordazonosítókat ugyanarra a címre képezi le. Ezért ezeket szinonimáknak 
nevezzük. A szinonimák tulajdonképpen kétféle módon keletkezhetnek: vagy a leképező 
eljárás állítja őket elő, vagy már eleve előfordulnak az azonosítók között. Az előbbire 
példa a fenti EPSZILON—ETA pár, az utóbbira pedig az a személyi nyilvántartás, amely- 
ben két KOVACS JANOS szerepel. 

A szinonimák elleni küzdelemnek két útja van: a megsemmisítés és a békés egymás mel- 
lett élés. Az előbbi azt jelenti, hogy olyan leképező eljárást keresünk, vagy dolgozunk ki, 
amely nem fogad el, és nem is állít elő szinonimákat. Az utóbbi esetén pedig beletörő- 
dünk abba, hogy szinonimák vannak, és a leképező eljáráson belül (vagy ritkábban kívül) 
gondoskodunk a megfelelő kezelésükről. 

Noha tökéletesnek a radikális megoldás tűnik, sok esetben egyszerűbb a szinonimákat 
kezelni, mint egy teljesen egyértelmű leképezési eljárást konstruálni. 


Tej 
[3] 


35. ábra. Szinonímák kezelése 


Vegyük például az előbbi esetet. Egyszerűen duplázzuk meg az állomány területét, és 
a szinonimát tegyük 26-tal magasabb címre (35. ábra) . 


azonosító: ALFA cím: 1 
azonosító: BETA cím: 2 
azonosító: GAMMA GÍm: 7 
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azonosító: DELTA cím: 4 
azonosító: EPSZILON cím: 5  (-69-—64) 
azonosító: ETA cím:31  (-69—64-26) 


Az így megnövelt címet másodlagos címnek nevezzük, szemben az eredeti, elsődleges 
címmel. 

Ilyenkor persze figyelnünk kell arra, hogy egy azonosító szinonima-e, avagy sem. Ezt 
onnan ismerjük fel, hogy az elsődleges cím foglalt-e, avagy szabad. (Azaz példánk szerint 
a tesztprogramban a címen található rekord tartalma rombusz vagy kettőspont.) 


1914 R-t 

1029 LEHSCeEREtrSHD",-b4 

1938 IF LX£1 ÜR L-26£ THEN B0TO 139399 
1846 IF RE$7FL25"74" THEM L-L4H26 
134 RzL 

1993 RETURH 


RELATIV LEKEFEZES 


baj) fa) ha A osi) 
rerrt btreeeetemererer [eerret 
h NK 2 JET 1 CS TENtNrNlrTNNE lGPNl ll lle tllt Hl KÉNF-ZK KöN NEON IEREYP NH ZER: 


ti fe 
Mn 


6 tg KRÁBEK . IEZKEAK SY ÉG s et Ete 1 TES HE 2 alk HÉÉ HC AK EE! 


LAK TAN ERAT TF VAN E TAN TR TORN IA TENG KN OO VA KAT TON TART KEGY KORA TAG TÖRT HAN TAN TB 
pa) [2] wi ng vi 


E szinonimakezelésnél persze, ha egy rekordot vissza akarunk keresni (be akarunk olvasni) 
az állományból, akkor azt először az elsődleges címén keressük. Ha nincs ott, mert ezen 
a helyen például egy szinonima van, akkor a rekordot a másodlagos címen is keresni kell. 
(Ebből következik, hogy a szinonimákat vagy a rekordazonosító, vagy a rekordtartalom 
alapján meg kell tudnunk különböztetni egymástól.) 

Nyilvánvaló, hogy ez a megoldás akkor gazdaságos, ha bármely rekordnak lehet szinoni- 
mája, mégpedig ugyanolyan gyakorisággal. Viszont csak akkor működőképes, ha egy re- 
kordnak soha nincs egynél több szinonimája. i 

A példaként vett görög betűk nem ilyenek. Egyrészt a szinonimával rendelkező azonosí- 
tók száma kevés, másrészt egynél több szinonimájuk is lehet: 


EPSZILON  — ETA 

THETA — TAU 

KAPPA — KSZI — KHI 
OMIKRON — OMEGA 

PI — PSZI — — PHI 


A hármas szinonimák , adminisztratív" eszközökkel is megszüntethetők, ha a szokásos 
KSZI helyett XI, a PHI helyett FI írásmódot alkalmazunk. 
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Másodlagos cim 


Elsődleges cim 


2 KÉS) § 26 (27) 28 29 30 32 
ETETETT EG EE ET ez TET IEET TETÉSE 


Adatterület 


l 
I 
l 
; Túlcsordulási terület 
l 
l 


36. ábra. Független túlcsordulási terület 


Erre nincs szükség, ha a szinonimák kezelését úgynevezett független túlcsordulási terület- 
tel oldjuk meg. Ennek az a lényege, hogy az állomány területét két részre osztjuk (36 
ábra): 

Az első rész az 1-től 26-os címig tart. Ide képezzük le az elsődleges adatokat. Ezért ezt a 
területet adatterületnek hívjuk. A második rész a 27-től a 33-as címig tart. Ide tesszük 
azokat a rekordokat, amelyek az adatterületre már nem férnek rá, vagyis a szinonimákat. 
Ezért ezt a részt túlcsordulási területnek nevezzük. (Esetünkben erre elég 7 rekordnyi 
hely, hiszen több szinonimánk a görög betűk között nem lehet.) 


A túlcsordulási területet úgy kezeljük, hogy a rekordot leképezzük az adatterületre, 
ekkor megkapjuk az elsődleges címet. Ha a hely szabad, oda visszük fel a rekordot. Ha 
nem, akkor keresünk egy szabad helyet a túlcsordulási területen. Ennek a címe lesz a 
másodlagos cím, és ide visszük fel a rekordot. Például: 


azonosító: BETA cím: 2  (adatterület) 

azonosító: EPSZILON cím: 5 (adatterület) 

azonosító: ETA cím: 27  (túlcsordulási terület) 

azonosító: THETA cím: 20  (adatterület) 

azonosító: TAU cím: 28 (túlcsordulási terület) 
1918 KB 


1928 LEHSC(REtr"A"1-—-bd 
19:9 IF L-(1 OR L22E£ THEM GÜTŰ 19939 


194A roll RE$(Loz":" THEM GOTŰ 1218 
1116 FOR LsZy TŰ Sz 
líza : : IF RE$ZLo5":" THEM GOTŰ 1218 


1139 : NEXTL 
113939 GOT 19939 
17218 Rel 

1953 FRETURM 


140 


RELATIV LEKEFEZES 


kai [2] a) [a] mrj 
reerteerribreertrrrr[—erTrTtirtTTi 


TE TŐN JE árás ET BA a KE e E Her) 
af. .ra 393 


LT TONP TANYA TAG KT KGY TAG HT TAG TOT EGY RT TAG TR VAN KON VAA TAN TOTTÉT B 
fr] s ki - 


Visszaolvasáskor a rekordot az adatterületen keressük. Ehhez nincs másra szükségünk, 
mint az elsődleges címre. Ha az ott lévő rekord üres, nincs értelme tovább keresni. Ha vi- 
szont az elsődleges címen nem a keresett rekord van, akkor azt a túlcsordulási területen 
kell keresni. 

Az ilyen túlcsordulási területre jellemző, hogy az adatterületen kívül helyezkedik el, és 
bármely rekord szinonimáját tartalmazhatja. Ezért független túlcsordulási területnek 
nevezzük. Használata általában akkor gazdaságos, ha a szinonimák száma a rekordok szá- 
mához képest kicsi. 

Megjegyezzük, hogy a példában a szinonimák mindig a túlcsordulási terület legelső sza- 
bad helyére kerülnek, a címük tehát nem jellemző a rekordra. Lehetne ez másként is; 
alkalmazhatnánk külön címképző eljárást, úgynevezett másodlagos leképezést a túlcsor- 
dulási területen belül. 

A bemutatott eljárás persze csak a görög betűk neveire működik, egy munkahely dolgo- 
zóinak a neveire már nem. Egyrészt ott szinte minden betűnél több szinonima fordul 
elő, másrészt azonos nevek is lehetnek. Ilyenkor más leképezési eljárást kell választanunk. 
Tegyük fel, hogy az állományban minden rekordnak legfeljebb négy szinonimája lehet, 
azaz egy adott betűvel legfeljebb öt rekord azonosítója kezdődhet. Az egyszerűség ked- 
véért zárjuk ki az azonos nevek lehetőségét. (Legyenek például az azonosítók az európai 
fővárosok nevei.) 

Ilyenkor a szinonimákat úgynevezett alárendelt túlcsordulási területen is elhelyezhetjük. 
Ennek a lényege az, hogy az adatterületen belül van, éspedig minden elsődleges címhez 
tartozik egy-egy ezt követő, de nem önálló túlcsordulási terület az elsődleges címhez 
tartozó rekord szinonimáinak tárolására (37. ábra). 


Itt tehát a túlcsordulási területek két elsődleges cím közé ékelődnek be, és mindig csak 
az előttük álló elsődleges címen lévő rekord szinonimáit tartalmazhatják; ezért nem füg- 
getlenek. 

Felíráskor nyilván előbb leképezzük a rekordot az elsődleges címre, majd megnézzük, 
hogy ez szabad-e. Ha igen, letároljuk a rekordot, ha nem, vesszük a soron következő 
címet. Ha ez szabad, oda tesszük a rekordot, de ha nem az, továbblépünk mindaddig, 
amíg egy szabad helyet nem találunk, vagy el nem érjük a következő elsődleges címet. 
Most tehát az állományunk 26 x 5 - 130 rekordból áll. Az elsődleges címeket a kezdő- 
betűből képezzük: 1, 6, 11, 16, 21 stb. Vagyis (L—1)365 1, ahol L a túlcsordulási terü- 
let nélküli cím: 
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1818 R:-0 

1828 L-ASC(R$t"B"I-64 

1838 IF LZ1 OR L52E£ THEM GOTC 1599 
1048 L5(L-19$5t1 

18058 IF RE$fL25":" THEH GOTÚ 1219 
1868 : LL5sL45 

1119 : LsLvtri 


1128 : : IF L9-LL THEN GŰTŐ 19599 
11598 : : IF RE$(L2z":" THEM GOTO 12198 
1149 : GOTOD 1119 

1218 RsL 


13339 RETURH 
azonosító: BUDAPEST cím: 6 (elsődleges) 
7 


azonosító: BERLIN cím: (másodlagos) 
azonosító: BERN cím: 8 (másodlagos) 
azonosító: LONDON cím: 56 (elsődleges) 
azonosító: PARIZS cím: 76 (elsődleges) 
azonosító: PRAGA cím: 77 (másodlagos) 


PEI ATIV LEKEPEZES 


es) A her] [aj mij 
eeetteeerliertrererit imre erti-erra 


a GE ÉRT KA VÁLT 4 RÁ KOBALT ENE ÉN TEGTEB SETALNI al HB JRE ÉL VM KÖT TÉR 3-1 
ker, Ég TÉVES S6E6 Ek HÁG HG RRE Ét gat TAR MÉL LS ELTEM -ARN ER AR GC TÁ SÉT ÉS ső 
Te sxé Bla not gés átt ale JR ÁGSÁRR SZA HRB Tt ete ÉGÉTE 2 TEAR NÉL TELEN NÉ KG TEK ÖL EE 39 
JÁ e tcrtk égők Sá álÉt-IE -$aed IVA tölbs e 1a9k TE 1dbk ÉG át töle 7álb VÖ -TTBG TEGANTK HET 05 ér Htv Ea 1Hl MÉ Med 7) 

télen VÖ gt tat JÖ ssh Abe Káleb 138 
keeaekaf elevenek [osesekeeeofe nonek [oknkekeep geped 
nt) Aa baj) A sad 


Elsődleges cimek 


HZ EEEE 


Másodlagos cimek 


37. ábra. Alárendelt túlcsordulási terület 
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E módszer előnye a jól áttekinthető állományszerkezet, és a kevés fejmozgással járó, 
tehát gyors keresés. Hátránya, hogy ha valamelyik túlcsordulási terület megtelik, az egész 
állományt át kell szervezni, ami azzal is jár, hogy a feldolyozóprogramokban a leképező 
eljárásokat is át kell dolgozni. A független túlcsordulási területnél erre nincs szükség, 
az állomány automatikusan kiterjeszthető.) 

Elvileg szervezhető olyan relatív állomány is, amelynek egyaránt van alárendelt és füg- 
getlen túlcsordulási területe. Ilyenkor nemcsak másodlagos, hanem harmadlagos címekkel 
is számolnunk kell. (Általában a másodlagos címek az alárendelt, a harmadlagosak a füg- 
getlen túlcsordulási területen helyezkednek el; azaz ha egy rekord nem tárolható az el- 
sődleges címen, akkor a cím alárendelt túlcsordulási területre kerül, ha pedig az is betelt, 
akkor a független túlcsordulási területre tesszük.) Az ilyen állomány leképezési eljárása 
a legtöbbször igen bonyolult, ami már önmagában is elegendő ahhoz, hogy gyakorlati 
alkalmazása csak nagyon szűkkörű legyen. 


Megjegyezzük, hogy a bemutatott példák messze nem merítik ki a leképezési eljárások 
lehetőségeit. Csupán szemelvények egy szinte kimeríthetetlen témakörből. 

A tesztprogramokba beépített leképező eljárások rutinjai sem gyakorlati alkalmazás cél- 
jára, hanem a leképezés kipróbálására készültek. A gyakorlatban ugyanis a leképezést 
nemcsak felvitelre, hanem beolvasásra is végre kell hajtani, sőt általában minden felvi- 
telt egy lekérdezés előz meg, amely eldönti, hogy a rekord szerepel-e már az állomány- 
ban. 

A tesztprogramokban e lekérdezések végrehajtását feltételeztük, és azt is, hogy a rekor- 
dot nem találta meg; tehát az felvihető. 

Természetesen nincs akadálya, hogy a lekérdezésre külön tesztprogramot írjunk, vagy 
hogy beépítsük az említett programokba. Erre azonban nincs szükség, mert a következő 
fejezetben bemutatunk egy olyan programot, amelynek leképező rutinjai már gyakorlati 
igényeket is kielégíthetnek. 


RELATÍV ÁLLOMÁNY A leképezési eljárások és a relatív állományok kezelésének 
TÚLCSORDULÁSI gyakorlására készítsünk egy házi telefonkönyvet, amely a 
TERÜLETTEL következő adatokat tartalmazza: 

— T$: állapotjelző ( 1 bájt) 

— S$:  szeparátorjel ( 1 bájt) 

— K$: név (25 bájt) 

— S$:  szeparátorjel ( 1 bájt) 

— L$: lakás telefonszáma ( 7 bájt) 

— S$:  szeparátorjel ( 1 bájt) 

— M$: munkahely telefonszáma (12 bájt) 

— S$:  szeparátorjel ( 1 bájt) 


Ha a név hosszabb 25 bájtnál, rövidíteni kell. A lakás és a munkahely telefonszáma nem 
foglalja magában a (távhíváshoz szükséges)  körzetszámot, de tartalmazza a szokásos 
kötőjelet. A munkahelyi számban ezenkívül egy ,,/" jel és egy mellékállomás legfeljebb 
négyjegyű hívószáma is szerepelhet. A teljes rekord mérete tehát 49 bájt. 
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Ha kívánjuk, a mezőket megnövelhetjük, hogy bővebb információt (több melléket, kör- 
zetszámot stb.) tartalmazhassanak, de ennek nincs különösebben értelme, hiszen a prog- 
ramot végül is nem közvetlen gyakorlati felhasználásra, hanem kísérletezésre szánjuk. 
Az állomány legyen olyan, mint a szokásos betűregiszteres zsebnotesz, amelyben minden 
betű új lapon kezdődik, és minden lapon üres rovatok vannak a bejegyzések számára. 
Az egyszerűség kedvéért állapodjunk meg abban, hogy ezen rovatok száma laponként 
öt; a teszteléshez ennyi is elég. 

Az angol ábécé 26 betűből áll, ezért állományunk 26365 - 130 rekord tárolására alkalmas. 
A képzeletbeli lapoknak megfelelően az 1—5 rekordokat az A betűvel kezdődő neveknek, 
a 6—10 rekordokat a B betűseknek, és így tovább, a 126—130 rekordokat pedig a Z-vel 
kezdődőeknek tartjuk fenn. 


(Elsődleges cim) 


Túlcsordulaási terület 


38. ábra. Állomány túlcsordulási területtel 
(Telefonkönyv állomány) 


A 38. ábrán jól látható, hogy tulajdonképpen a már ismert alárendelt túlcsordulási terü- 
letet alkalmaztuk. Azonban el kell térnünk az előző fejezetben bemutatott rekordkeze- 
lési módtól, hiszen az, amint már ott is felhívtuk rá a figyelmet, csak az új rekordok el- 
helyezésére alkalmas. 

Hogyan kezeljük hát a rekordokat? Úgy, mint a zsebnoteszt: 


— Ha egy rekordot fel akarunk vinni, akkor beírjuk az első szabad helyre, feltételezve, 
hogy azon a lapon, amelyen lennie kell, a rekord még nem szerepel, és van szabad 
hely. 

— Ha egy rekordot törölni akarunk, töröljük az adatait, feltéve, hogy azon a lapon, 
amelyen lennie kell, a rekord már szerepel. 

— Ha egy rekordot módosítani akarunk, az adatait felülírjuk, ha azon a lapon, amelyen 
lennie kell, a rekord már szerepel. 

— Ha egy rekordot le akarunk kérdezni, akkor beolvassuk az adatait, persze csak akkor, 
ha azon a lapon, amelyen lennie kell, a rekord már szerepel. 


Mind a négy művelet két fontos lépésre épül: a notesz felütése a megfelelő lapon, és a 
bejegyzés megkeresése a lapon belül. 

A felvitel esetén még egy lépés van: ha a bejegyzés nincs a lapon, akkor szabad helyet 
kell neki keresni. 
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Mindezeket figyelembe véve úgy célszerű felfogni relatív állományunkat, hogy abban 
egyáltalán nincs adatterület, hanem kizárólag túlcsordulási területből áll. 

Más szóval ez azt jelenti, hogy a túlcsordulási terület nem az elsődleges címet követő 
címen kezdődik, hanem magán az elsődleges címen, vagyis az első másodlagos cím azonos 
az elsődleges címmel. (A megfogalmazás most szőrszálhasogatásnak tűnhet, de később 
ki fogjuk használni ezt a tulajdonságot.) . 

Mi az előnye ennek a szervezési módnak? Elsősorban az, hogy a túlcsordulási terület 
megfelel a notesz egy teljes lapjának. Így egységes kereső eljárást írhatunk, hiszen a no- 
tesznek (állománynak) nincs kitüntetett rovata (rekordja) egy lapon (leképezési terüle- 
ten) belül. 

A fenti koncepciónak megfelelően a leképező eljárás két részből áll: az első másodlagos 
cím (vagyis az elsődleges cím) meghatározásából, valamint a keresésből. 

A címet a már ismert módon számíthatjuk ki, némileg persze a feladat igényeinek megfe- 
lelően, testre szabva: 


2818 B$-LEFT$-(M$.17 

2zB2A RL-(RSCr(B$.-5521k5ti 
zs RH-A 

2933 KETLIRM 


Az eljárás bemenő paramétere az N$ név, vagyis a rekordazonosító. Ennek az első B$ 
betűje (bájtja) határozza meg az elsődleges cím RL alsó bájtját. Az RH felső bájt pedig 
mindig nulla, hiszen a legmagasabb cím 130 lehet, ami bőven 255 alatt van. 

Látható, hogy a címkiszámítás meg sem adja a rekordsorszámot, hanem egyenesen a kon- 
vertált formát hozza létre; éspedig nem az általános képlettel, hanem a feladatnak meg- 
felelő, egyszerűsített algoritmussal. 


Fordítsuk most figyelmünket a kereső eljárásra. Minthogy a keresés a rekordok olvasásá- 
val jár, a program sebessége szempontjából lényeges, hogy a keresés a túlcsordulási terü- 
leten belül csak egyszer olvassa végig a rekordokat. Tehát a keresésnek egyetlen menet- 
ben kell megtalálnia a keresett rekordot, vagy ha nincs benne az állományban, akkor az 
első szabad helyet. 


Kérdés, hogy mit tegyünk a törölt rekordokkal. Őrizzük meg, vagy írjuk felül őket? 
A feladat jellegéből következik, hogy a megőrzésnek nincs sok értelme. Ha tehát a törölt 
rekordok felülírását megengedjük, akkor célszerű őket szabad helynek tekinteni. Ennek 
van egy határozottan előnyös következménye, amit akkor érthetünk meg igazán, ha 
megvizsgáljuk a szabad helyek szerepét: 


— Ha a túlcsordulási terület üres, az első szabad hely az első címen van. 

— Ha a túlcsordulási terület nem üres, de nincs is tele, ugyanakkor nincsenek benne tö- 
rölt rekordok, az első szabad hely az utolsó feltöltött rekord utáni címen van. 

— Ha a túlcsordulási területen vannak törölt rekordok, az első szabad hely az első törölt 
rekord címén van. 

— Ha a túlcsordulási terület megtelt, és nem tartalmaz törölt rekordot sem, akkor nincs 
benne szabad hely. 


Mindezeknek az a következménye, hogy a túlcsordulási terület a kezdőcímtől kezdve 
folyamatosan fog feltöltődni; feltöltetlen rekordok csak a feltöltött rész után fordulhat- 
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nak elő. A feltöltés folyamatosságát persze a törölt rekordok időlegesen megszakíthatják 
ugyan, de üres rekordok soha. Ez pedig azért előnyös, mert a keresést nem szükséges 
a teljes túlcsordulási területre végrehajtani, elég az első feltöltetlen rekordig; ha létezik 
ilyen. Nyilván végig kell keresnünk a területet, ha megtelt. 

Ennek megfelelően a keresési eljárást a 39. ábra mutatja. 


KERESES 


Olvas: allapot Tovabb keres 


39. ábra. Telefonkönyv Olvas: adatok Talált 
állomány keresése 


Ahol a feltételek: 


— F8: ismétlődik az RL elsődleges címtől 1-esével legfeljebb 5 rekordra, amíg üres re- 
kordot nem talál, vagy amíg meg nem találja a keresett rekordot, azaz mind- 
addig ismétlődik , amíg az Il-5 és az F13 feltétel teljesül; 
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fs 
, 


— F9: haa rekord törölt, azaz a T$ állapotjelző - 
— F10: ha a rekord feltöltetlen, tehát a T$ állapotjelző -r; 

— F11T: ha a rekord feltöltött, vagyis a T$ állapotjelző -"4"; 

— F12: ha a rekordból beolvasott K$ azonosító megegyezik az adott N$ névvel; 


— F13: ha nem talált, de még van nem üres rekord, azaz ha nem F12 és nem F10. 


A rutin bemenő paraméterként a keresendő N$ nevet, valamint az ennek megfelelő alá- 
rendelt túlcsordulási terület kezdőcímét, az RL elsődleges címet kéri. 

Kimenő paramétere az RL rekordcím, valamint két jelző, a TALALT és a MEGTELT. 
Az utóbbiakat logikai változóként kezeli, és a nevüknek megfelelően , igaz" vagy , hamis" 
értékre állítja be őket. 

Ha TALALT rekordot, akkor az RL ennek a címét tartalmazza, ha nem, akkor az első 
szabad helyét. Ha van törölt rekord a túlcsordulási területen, akkor az RL az első törölt 
rekord címe, ha nincs, akkor az első feltöltetlen (üres) rekordé. Ha a túlcsordulási terü- 
let MEGTELT, azaz ha nincs benne sem törölt, sem üres rekord, akkor az RL nem tartal- 
maz rekordcímet, vagyis az értéke nulla. 

Megjegyezzük, hogy a TALALT és MEGTELT logikai változók pusztán a programozó 
kényelmét szolgálják. A rekord állapotát és helyzetét az RL címmel, valamint a T$ álla- 
potjelzővel a fenti logikai jelzők nélkül is egyértelműen meghatározhatnánk. A TALALT 
és MEGTELT jelzők logikai értékei, amelyeknek a tagadására (NOT) is rá lehet kérdezni, 
megkönnyítik a keresés eredményének kiértékelését. 

A rutin kódolva így néz ki: 


3919 MEGTELTSB 

3929 TALALT 50 

3999 SZ mB 

Azzal kezdődik, hogy nullára állítja a MEGTELT és a TALALT jelzőt, valamint az első 
szabad hely SZ címét. 


3119 FOR Izíi TO 5 


Ezután szervez egy ciklust, amely végigmegy a túlcsordulási terület öt rekordján, az RL 
kezdőcímtől kezdve. 


3129 : RCa1:G0SUB 3819 


A cikluson belül először beolvassa az aktuális címen lévő rekord T$ állapotjelzőjét az 
RC-1 bájtpozícióról. 

Ezután megvizsgálja a rekord állapotát, vagyis hogy a rekord törölt, üres vagy feltöltött-e. 
Ha egyik sem (ami elvileg lehetetlen, de hiba esetén előfordulhat) , tovább keres: 


3139 : IF T$és"-" THEN GOTO 3218 
3148 : IF T$s"tr" THEM GOTO 3319 
3158 : IF T$z-"$" THEN GOTOÚ 3410 
3199 : GOTO 3519 


Ha a rekord törölt volt, megjegyzi az RL címét, mert ezt tekinti a továbbiakban az első 
SZ szabad helynek, persze csak akkor, ha még nem volt szabad hely, azaz ha SZ-0. Majd 
tovább keres: 

32109 : : IF SZ5-8ü THEN SZsRL 

3299 : GOTO 3518 
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Ha a rekord üres, akkor megjegyzi az RL címét, és azt tekinti az első SZ szabad helynek, 
de csak akkor, ha eddig még nem talált szabad helyet. Ezután abbahagyja az immár re- 
ménytelen keresést, hiszen üres rekord csak a túlcsordulási terület feltöltött része után 
következhet: 

3318 : : IF SZ5O THEN SZERL 

3399 GOT 33919 


Ha a rekord feltöltött, akkor beolvassa az adatait az RC-2 bájttól kezdve. Majd megvizs- 
gálja, hogy a rekord azonos-e a keresettel, azaz a megadott N$ név megegyezik-e a beolva- 
sott K$ névvel. Ha nem, tovább keres, viszont ha megtalálta a keresett rekordot, akkor az 
RL címet tekinti az első SZ szabad helynek, és egyben TALALT jelzést ad, majd termé- 
szetesen abbahagyja a keresést: 

3419 : : Rfsz:GOSUB 6910 

3429 : IF M$CK$ THEN GOTO 3518 

3499 : : SZs5sRL:TALALT5(SZCDBI 

3499 GOTO 3919 


A továbbkeresés abból áll, hogy veszi a soron következő RL címet, és visszatér a kereső 
ciklus elejére: 


3518 : RLsRLt1l 
3599 MEXT I 


A keresés befejezésekor beállítja a kimenő paramétereket. Az RL rekordcímet az első SZ 
szabad hely címére (ami jelenthet foglalt helyet is, ha a rekordot megtalálta); a MEGTELT 
jelzőt pedig , hamis" vagy , igaz" (O vagy —1) értékre, attól függően, hogy talált-e rekor- 
dot, illetve szabad helyet, avagy sem: 


3918 RLsSZ 
39289 MEGTELTs(SZeg) 
3999 RETURN 


A TALALT jelzőt nem kell külön állítania, hiszen az értéke induláskor eleve , hamis" 
volt. Ezt azonnal átállította , igaz"-ra, amint a rekordot megtalálta. Ha nem találta meg, 
akkor maradnia kell a , hamis" értéknek. 

Látható, hogy a terület feltöltésekor az új rekord elsősorban törölt rekord helyére kerül; 
üres rekordot a keresés csak akkor választ, ha a törölt rekordok elfogytak. Ennek az az 
előnye, hogy a keresést mindig a lehető legkevesebb rekordon kell végrehajtani, ami 
a feldolgozást gyorsítja. 

Mindenesetre írjuk meg a tesztprogramot a leképezés kipróbálására. A "TELEFON- 
TORZS" állományt a 130 elemű TT$ tömbbel szimuláljuk. A tömbelemek csak az álla- 
potjelzőt és a rekordazonosítót fogják tartalmazni, szeparátorjelek nélkül; hiszen csak 
a keresésre épülő leképező eljárást, nem pedig magát a karbantartást akarjuk tesztelni. 
Induláskor a TT$ tömb, mint a frissen létrehozott relatív állomány, rr jelekkel van fel- 
töltve: 

119 DIM TT$-(1395 

219 FOR Iszi TO 139 

z29g : TTSE(IJE"n" 

239 NEXT I 
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Ezután következik a tulajdonképpeni tesztelés. A program bekéri a J$ állapotjelzőt, és 
ha ez nem "x" leállítójel, akkor az N$ rekordazonosítót is, majd leképezi a rekordot. 
Ezt mindaddig ismétli, amíg le nem állítjuk: 


3198 FERIHT"-IM TELEFÜMTESZT EIB" 

3zA :  IMHFPUT"SH JEL z ";.I$ 

329 : IF J$5-"$4" THEM GOTO 3718 

s49 : IF JI$-z2"4t" AMD J$22"-" THEH G0TŐ 310 


299 :  : —INPLT"M O MEV sz ";M$ 

369 : : GÜSUE 2818 

srá : IF FLZ1 OR RL-1Z2Z6 THEM GOTO 319 
aga : : GOSUB 3819 

199 G0SVE £819 


sza GOT 319 


Állapotjelzőnek J$ - "r" jelet kell megadnunk, ha a rekord felvitelét vagy módosítását 
akarjuk szimulálni; ha pedig a törlést szeretnénk kipróbálni, J$ -"—"" jelet kell begépel- 
nünk. A programot a J$- "56" jellel állíthatjuk le. Más J$ jelet a program nem fogad el. 
Az állapotjelző után adhatjuk meg az N$ rekordazonosítót, azaz a nevet. Ennek feltét- 
lenül betűvel kell kezdődnie, amit a program ellenőriz. 

A rekord leképezése két lépésben történik: először előállítja az elsődleges címet (2010), 
majd végrehajtja a keresést (3010). 

A keresés eredményétől függően hajtja végre a rekord felírását az állományba (6010), 
amit itt a megfelelő tömbelem feltöltésével szimulálunk. 

Ezzel a leképezés szimulálása tulajdonképpen készen van. Az eredmény ellenőrizhetősége 
érdekében a program alkalmas a TT$ tömb tetszőleges A alsó és F felső határ közötti 
intervallumokban való kiírására: 


518 FRINT"-I4 TELEFOMTORZS" 

329 :  IHPUT"M REKORNTOL z";A 

325 IF A:B8 THEN GOTO 3399 

539 :  INFPUT"W REKORDIG -";F 

948 IF A(1 OR F2138 OR R2F THEN GOTO 318 
SZA : PRINT/M" 

969 : FOR I5A TO F 


2361 : : PRINT RIGHTE(" "ESTRSÉCI3,49; 
982 : : FRINT" ";LEFT$-(TT$fI2,12; 
363 :  : IF LEFTÉE(TT$(-(I4.175"r" THEM GOTO 3968 
964 :  : FRIMT" ";MID$E(TTE(I) 52.25); 
Jég : : PRINT 


363 : NEAT I 

97A GET 5A$:IF A£z"" THEH GOTO 379 
sza CGOTO 319 

993 EMD 


Akárhány intervallum kiíratható, bármilyen sorrendben. Az intervallum A és F határait 
tetszés szerrint választhatjuk meg, de a program ellenőrzi, hogy csak a címtartományon 
belül adhassunk meg értékeket. A kiírás A-0 paraméterrel állítható le. 
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Mivel a TT$ tömbelemek nem tartalmaznak szeparátorjelet, az olvasható kiíráshoz két 
részre kell bontani őket: az első bájt adja az állapotjelzőt, a második bájttól kezdve (leg- 
feljebb 25 karakter hosszúságban) helyezkedik el a név. A program ezeken kívül minden 
rekordhoz kiírja az I rekordcímet (indexet) is. 

Az intervallum kiírása után programunk várakozik, hogy legyen időnk a képernyő tanul- 
mányozására, Bármilyen gomb megnyomására továbblép, és kéri a következő interval- 
lumot. 

Most már csak a szubrutinok vannak hátra. Először nézzük a korábban már bemutatott 
címkiszámító eljárást: 

2519 ES5LEFTE(M$, 175 

290289 RLS(RSC-CB$2-EZ3IK3HI 

zaja RH:R 

2399 RETIJRM 


Majd az imént részletesen ismertetett kereső eljárást: 


ab18g MEGTELT5O 

3828 TALALT 58 

3999 SZ B 

3119 Ma I:1 TD 5 

3129 RCs51:G03SUB 3919 

3138 : IF T$z"7-" THEM GOTÚ 3218 
3149 : IF T$z"n"" THEN GOTO 32198 
3158 : IF T$z"t" THEM GÜTŐ 3419 
al99 : GOTO 3518 


3219 : : IF SZA THEN Sz5rRtL. 
3299 : GOTO 3519 

3319 : : IF SZ-r8 THEM SZERL 
3399 B0T0 3319 

3419 : : RCs2z:GOSUB 5919 

3429 : IF H$CSK$ THEN GOTO 3510 
3439 :  : SZaRL:TALALTS(SZC2BI 


34939 GOTO 3919 
3519 : RL:5RLtH1 
3399 HEXT I 

39198 RLsS5SZ 

3929 MEGTELTS(SZSHA 
399839 RETURHM 


A korábbi tesztprogramjainkkal ellentétben itt a leképezés közvetlen összefüggésben áll 
az állomány kezelésével, ezért szükségünk van még két modulra: az állományból rekor- 
dot olvasó, valamint az állományba rekordot felíró szubrutinra. 

Ezek közül az olvasás az egyszerűbb. Természetesen nem igazán olvasunk, hanem csak 
szimuláljuk. Ha a bájtpozíció RC-1, akkor csak a T$ állapotjelzőt, ha pedig a bájtpozíció 
RC -2, akkor csak a K$ nevet olvassuk az RL címen tárolt rekordból, azaz vesszük ki a 
TT$ tömb RL indexű eleméből: 
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eg19 IF RC5s1 THEM T8$-LEFTEÜTT$IRL.17 
saZzA IF RCszZ THEM KS-MINELTTÉE(RLI 2.259) 
e993 KETIRM 


A rekord felírását is nyilvánvalóan csak szimuláljuk: aJ$ állapotjelzőt és az N$ nevet 
a TT$ tömbnek a kereső eljárás által megadott RL-lel indexelt elemébe töltjük be: 


4819 IF TALALT THEN GOTO 4218 
4829 IF MEGTELT THEM GOT 4516 
4118 FFIHT"MM NEM TALALT" 

4128 PRIMT "4 SZABAD HELY zo "RL 
4153 GOTO 4519 

4218 PRINT"MM TALALT" 
4228 PRIMT "MW CIME 

á238 FRINT "4 TARTALMA 
4295 GOTO 4518 

4318 PRIMT "MM MEGTELT" 
4518 GET A$: IF A$z"" THEN GOTO 4518 
4618 IF MEGTELT THEM GOTŐ 49939 

46zA IF Jáz"-" THEM N$z"€" 

4639 TT$-CKILo5sJ$4tN$ 

49539 RETURHM 


Ezt persze csak akkor tehetjük meg, ha a keresés a rekordot megtalálta, vagy ha nem, 
akkor talált (feltöltetlen vagy törölt) szabad helyet. Ezért figyelnünk kell a kereső eljárás 
kimenő paramétereit, a TALALT és a MEGTELT jelzőket. A program tájékoztatás végett 
ezeknek megfelelő üzenetet ad a képernyőre, feltüntetve a címet, amelyre az eljárás a 
rekordot leképezte, sőt megtalált rekord esetén annak tartalmát is. Í 

Az üzenetek olvasására is hagy időt a program, csak gombnyomásra (bármely gomb meg- 
nyomására) megy tovább, és kéri a következő rekord állapotjelzőjét, továbbá azonosí- 
tóját. 

Ha begépeltük a programot, mentsük ki TELEFONTESZT néven, majd futtassuk le. 
Vigyünk fel tetszés szerinti rekordokat, bár célszerűbb a korábban bemutatott minta- 
. állományt létrehozni. Például: 


TELEFONTESZT 


En 
" , TT$ERL? 


Hü 


JEL a 7? $ 
NEV s ? BACSKAI 


NEM TALALT 
SZABAD HELY s 0 7 


FIGYELEM! 
Az üzenetek megjelenése után a program várakozik. Csak akkor lép tovább, ha valamilyen gombot 
megnyomunk. 
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Próbáljunk meg létező rekordot törölni. Például: 


TELEFOMTESZT 


1 A d ÉR Vb a 
NEV sz ? BACSKAI 


TALALT 
CIHE mm 7? 
TARTALMA z 4BALSKRAI 


Vigyünk fel azonos betűvel kezdődő neveket is, mégpedig annyit, hogy a túlcsordulási 
terület megteljen. Például: 


TELEFONTESZT 


JEL 5 7? 4 
MEYV s ? ALFOLDI VI 


MEGTELT 


Ha elég rekordot vittünk fel, módosítottunk, illetve töröltünk, adjuk J$-"5e" állapotjel- 
zőt. Ekkor a program áttér a tömb kiírására, és bekéri az intervallumot. Ha megkapta, 
kiírja atömb megfelelő részét: 


TELEFÜNTŐRZS 
REKORDTOL 57 73/ 
REKÜRDIG 57 11 


a $t ALFÖLDI V 
6 t BARANYAI 
sségő 5 

$ BIHARI 

TT 

Tr 

$t CSOMHGRADI 


mm DAAD B 1 


1 
1 


Az intervallum végén várakozik, míg egy tetszőleges gombot meg nem nyomunk. Akkor 
új intervallumot kér. Így akár a teljes tömböt is kiírathatjuk. Ezt célszerű több lépésben, 
legfeljebb 15 rekordonként megtenni, mert a hosszabb intervallumok nem férnek ki a 
képernyőre. 

Ha már nem vagyunk kíváncsiak több intervallumra, adjunk REKORDTOL -0 alsó határt. 
Ekkor a program leáll. 
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Sokan úgy vélik, hogy felesleges ilyen tesztprogramokat írnunk, hiszen az , éles" progra- 
mot amúgy is tesztelnünk kell. 

Elsősorban a kezdő programozók esnek (önhibájukon kívül) abba a pszichológiai csap- 
dába, hogy nemcsak egyszerűen többletmunkának érzik a szimulált tesztelést, hanem a 
teljesítési (átadási) határidőt veszélyeztető időfecsérlésnek is tartják. 

Ezzel szemben ezek a tesztprogramok eléggé sablonosak: mielőtt meghívnák a teszte- 
lendő eljárást, bekérik a bemenő paramétereit, az eljárás végrehajtása után pedig kiírják 
az általa előállított kimenő paramétereket. A tesztelendő eljárásból hívott szubrutinok 
helyett általában csak az eredeti rutin hatását szimuláló modulokat tartalmazzák. 

Ha van már néhány mintánk, egy ilyen tesztelő programocskát egy órán belül meg lehet 
írni. Ezek után a tesztelés már valóban csak percek kérdése, feltéve, hogy a tesztadatokat 
jó előre gondosan megterveztük. 


FIGYELEM! 

Tilos találgatással tesztelni, mert ez veszélyesebb, mintha egyáltalán nem tesztelnénk. Rosszabb hogy- 
ha egy nem kielégítő tesztelés után hiszünk egy tesztelt eljárás látszólagos helyességében, mint ha 
tudjuk, hogy az eljárás teszteletlen, s Így az eredményében nem bízunk meg. 


TELEFONKONYV 


program 


e] TE 
LE 


40. ábra. Telefonkönyv I. 
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A bonyolult algoritmusokat mindig célszerű külön tesztelni. Amikor ugyanis a bizonyí- 
tottan helyes eljárást beépítjük egy , éles" programba, és az nem működik jól, bízhatunk 
abban, hogy a hibát nem a beépített eljárásban kell keresnürik. Ez különösen érvényes 
olyan eljárásokra, amelyek elég általánosak ahhoz, hogy több különböző programban is 
felhasználhatók legyenek. A leképező eljárások nagyrészt ilyenek. 

A részeljárások külön tesztelése tehát a program tesztelését nem teszi feleslegessé, de 
jelentős mértékben megkönnyíti. Végső soron magát a tesztelést is meggyorsítja, és meg- 
bízhatóbbá teszi. 

Most pedig lássuk végre a házi telefonkönyvünket kezelő programot! 

A feldolgozás alapja a karbantartás, amelyhez feltétlenül szükségünk van a leképező 
eljárásra. Ez, mint láttuk, két részből áll: az elsődleges cím meghatározásából (ez a tulaj- 
donképpeni leképezés) , valamint a keresésből (40. ábra). 


A feltételek: 


— F1: ha van keresendő név, vagyis N$ nem - "e" ; 
— F2: ha a ckeresés talált rekordot, azaz TALALT nem -0. 


A karbantartás meglévő rekordok módosítását vagy új rekordok felvitelét (beszúrását) 
engedi meg. A módosítás vagy a rekord törlését, vagy az adatainak megváltoztatását (fe- 
lülírását) jelenti (41. ábra). 


MODOSITAS 


Változtat 


41. ábra. Telefonkönyv II. 
— MÓDOSÍTÁS 


Ahol a feltételek: 


1 


— F3: ha van változás, tehát a V$ válasz — "1"; 
— F4: ha a rekord törlendő, azaz a V$ válasz - "17; 
— F5: ha van módosító adat, vagyis az LL$ lakástelefon nem —- "36" vagy az MM$ mun- 


ti. 


kahelyi telefon nem — 3e . 


A beszúrás természetesen csak akkor hajtandó végre, ha az elsődleges címnek alárendelt 
túlcsordulási terület még nem telt be (42. ábra). 


BESZÚRÁS 


Vegrehajt 


42. ábra. Telefonkönyv III. — BESZÚRÁS 


A feltételek: 


0 vág 


— F6: hava rekord felvihető, azaz a V$ válasz - 
— F7: ha a túlcsordulási terület megtelt, vagyis MEGTELT nem - 0. 


Itt emlékezzünk arra, hogy az állományban nincs adatterület, minden adat azonnal a 
túlcsordulási területre kerül. 

A programban a képernyő kezelését, valamint a program és a felhasználó közötti kap- 
csolat tartását a lehető legegyszerűbben oldottuk meg, hogy ne vonjuk el a figyelmet 
a relatív állományt kezelő funkciókról. 
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Ennek az elvnek megfelelően a program egy egyszerű üzenettel jelentkezik be: 

119 S$5(HR$E(12) 

129 FRIHT "VT" 

139 FOR I5s1 TŰ 28 

149 : PRINT TRE(189; "TELEFOMHKONYY" 

158 NEXT I 

169 THsiRg: G0OSUB 9919 :KEM: --2 /ARRKOÜZTHTRA3Z 

Hogy a bejelentkező felirat ne tűnjön el egy szempillantás alatt, a program TH ideig vá- 
rakozik. Majd megnyitja a parancscsatornát és a "TELEFONTORZS" relatív állományt: 
178 ÜPEH 15.815 

1899 OPEN 2.8. 2, "TELEFONTORES" 


Ezzel az előkészítés befejeződött. Következik a feldolgozás, melynek első lépéseként a 
program bekéri a karbantartandó rekord azonosítóját, az N$ nevet: 

219 FRIMT "27" 

228 : PRINT:PRIHT "948 HEVz 0ÁENII", 

239 : IHMPUT M$ 

248 : : IF LEH(H$2-25 THEM GÜTŰ 2141 

259 : : IF MHgs"k" THEM GOTO 918 


A 25 karakternél hosszabb nevet nem fogadja el. Ha a név helyett leállítójelet, csillagot 
kap, a program befejeződik. Ha nem, akkor az N$ névre végrehajtja a leképezést, vagyis 
az RL elsődleges cím meghatározását: 

260 : GOSUB 298198 :REM: --3 LEKEPEZES 

278 : : IF RL-(1 THEM GOTŰ 219 

289 : : IF RL512£ THEM GOTO 218 


Ha a leképezett RL cím kimutat a címtartományból, új N$ rekordazonosítót kér. (Ez 
például akkor következhet be, ha a begépelt név nem betűvel kezdődik.) Egyébként 
elkezdi a karbantartást. Ehhez előbb megkeresi a karbantartandó rekordot: 


319 : GOSUB 3818 :REM: --$ KERESES 


Ha megtalálta, akkor a módosító, ha nem, akkor pedig a beszúró modult hívja meg. 
Bármelyiket is hajtotta végre, utána új rekordot kér: 


329 : IF TALALT THEN GOSUE 3918 : REM: --) MINOZITAS 
339 : IF MOT TALALT THEM GOSUB 446418 "REM: cs IJJ FELYITEL 
399 GOTO 219 

Ha a programot NEV - "36" válasszal leállítottuk, akkor befejezi a karbantartást; lezárja 

az állományt és a parancscsatornát, majd a bejelentkezéshez hasonló, egyszerű üzenettel 

elbúcsúzik és leáll: 

919 CLOSE 2 

929 CLOSE 12 

9389 FRIMT "27" 

949 FOR Izi TO 29 

959 : PRINT TAB(183; "VISZOMTLATASRA! " 

g6Eg MHEXT I 

999 EMD 
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Eddig tartott a vezérlőmodul. Most pedig lássuk a szubrutinokat. 

Az állomány kezelésével kapcsolatban többször is hívjuk a hibavizsgálatot. Ez a parancs- 
csatorna H hibakódját figyeli a már ismert módon. Ha hibát észlel, kiírja az RL rekord- 
címet, a H$ gépi hibaüzenetet, majd lezárja az állományt a parancscsatornával együtt, 
és leállítja aprogramot. Erről az eseményről külön U$ üzenetet ad: 


1018 INFUTHIS.H.H$.T.B 

1828 vi HAZA THEN GOT) 15399 

1838 PRINT 

1949 : PRINT " REKORD: "FL. 

19538 : PRIMT 

1968 : PRIMHT " HIBA : 0 ";"4 "Hé." B" 
1119 : CLOSEZ 

i11z9 : CLOSE 15 

1138 : US$Z"LERLLITVA" 

1149 : PKIHT 

1158 : PRIMT TRB(1995"4 Hit S GIJ$4:." kik om 
LI99" , arr 

1993 RETURN 


A leképezés két modulját, a címkiszámítást (2010—2999), valamint a keresést (3010— 
3999) már ismerjük. Ide ugyanabban a formában kell begépelnünk őket, ahogyan a 
TELEFONTESZT tesztelőprogramban szerepeltek. 

A beszúró szubrutin három részből áll. Először üzenetet ad arról, hogy a rekordot nem 
találta, majd megkérdezi, hogy beszúrhatja-e. Ha a V$ válasz tagadó, kilép a beszúró 
szubrutinból. Ha igenlő, megkíséreli a beszúrást. (Egyéb V$ válasz esetén újra kérdez.) 


4918 FERIMT:FRIMT:FPRIHMHT 

4029 PRINT "4-8 MINCS HYILYAMTARTVH!" 
4938 PRINT 

4848 PRIHT "9£ő FELYIHETO? sI/MHz ok". 
4958 IMPUT "KIE": 7£ 

408B : IF Váz "W" THEN GOTO 4999 
4979 : IF V$éCD"I" THEM GOTO 4046 
49838 IF MEGTELT THEN GOTO 4418 

4198 REM: 


Ha a keresés talált a rekord számára szabad helyet, beállítja a T$ állapotjelzőt feltöltött 
jelzésre, azaz "1" értékre; a rekord L$ és M$ adatait pedig egy adott alapértékre, a pikk 
jelre, majd bekéri a lakás L$ és a munkahely M$ telefonszámát. Ezeknek az adatoknak 
a bekérése közvetett módon történik, ugyanazzal a rutinnal, amely a módosító adatokat 
veszi be. Vagyis az új adatokat LL$ és MM$ módosító adatként kell megadnunk, amelyek- 
kel"a program az üres rekordot módosítja. Így állítja elő az új rekordot, amit aztán felvisz 
az állományba, az RL címre. Egyben ilyen értelmű U$ üzenetet ad (lista a 158. oldalon). 


Ha a túlcsordulási terület megtelt, a beszúrás nem hajtható végre. Ilyenkor ennek meg- 
felelő U$ üzenetet ad, amely arról is tájékoztat, hogy melyik B$ betű területe telt meg: 
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4119 :  T$éz9-4" 

4129 :  L$z"é" 

4199 :  Mézte" 

4149 : GOSUB 7818 :REMs-2 ADRTBEKERES 
4219 :  U$z"FELYIVE" 

4228 :  GOSUB 6918 :REM-5D FELIRAS 
4299 GOTO 4399 


4419 : PRIMT:PRINT:FRINT 

4429 : PRINT TAB(iI795;"A 0 mm" 

4439 : PRINT " HA TELEFOMNKONYY d ":E$; 

4d49 : PRINT " MH BEETUS OLDALA" 

445A : PRIMT TRB(1I725"9 00 W" 

4468 : PRINT 

4479 : ÜU$SZ"MEGTELT" 

4498 : PRINT TAB(IR2; "a Se SGIJÉS" o kkk om" 

4499 TH:ZAB: GOSIJB 9818 "REM: --2 VARAKOZTATRAS 
4993 RETURN 


Az üzenet olvashatósága érdekében a programot itt is TH ideig várakoztatni kell. 

A módosítás, tehát a megtalált rekord kezelése is három részből áll. Először kiírja a meg- 
talált rekord tartalmát, a lakás L$ és a munkahely M$ telefonszámát. (A K$ nevet azért 
nem, mert a vele azonos N$ név még a képernyőn van.) Majd megkérdezi, hogy van-e a 
rekord tartalmában változás, és ha igen, ez törlés-e vagy módosítás: 


3910 FRINT 

5029 PRINT "34-B O LAKAS: ";L§$ 

3839 PRINT 

5048 PRINT "68-H MUMHKA: ";M$ 

3119 FPRINT:FRINT:PRIHT 

5129 PRINT " 94kM VALTOZAS VAN? 5I/Msz o X"; 
3138 IMFUT "HINNI" ;V$ 

Jj149 : IF vVáz"M" THEM GOTO 33993 

3199 : IF V$Z"I" THEM GOTÓ 3124 

3218 FPRINT 

5228 FRIMT " 96M TÖRLEMŰO? mz[/thz o $k", 
szd IHPUT "ANN"; v$ 

sz4ág : IF Vás"M" THEM GOTÚ 3318 

5298 : IF 7££5"I" THEN GOTO 5228 


A V$ válasz bármelyik kérdésre csak "I", azazigen,vagy "N", azaz nem lehet. Minden 
más válasz esetén újra kérdez. 

Ha a "VALTOZAS VAN?" kérdésre tagadó V$ választ adunk, nem következik be módo- 
sítás. Ilyenkor tulajdonképpen egy lekérdezést hajtottunk végre. 

Igenlő V$ válasz esetén a "TORLENDO?" kérdésre adott újabb V$ válasz dönti el, hogy 
törlés vagy módosítás következzék-e. Ha a törlés mellett döntöttünk, átállítja a T$ álla- 
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potjelzőt a "—" törlőjelre, a rekord többi adatát pedig egy egyezményes értékre, a köröcs- 
kére; majd felírja a rekordot az állományba, egyidejűleg az elvégzett műveletről az U$ 
üzenettel tájékoztatja a gépkezelőt: 


szed : T$z"-" 
S261 : N$z"g" 
SZEZ : L$z"0" 


Jjz6éz3 : Mázsa" 

szeg :  U$z"TÖRÖLYE" 

szag : GO3UEB 65198 :REM: --5 FELIRAS 

szaga CGOTŐ 5999 

Ha a módosítást választottuk, bekéri az LL$ és MM$ módosító adatokat. Ha valamelyi- 
kük értéke "36", akkor ez azt jelenti, hogy a megfelelő L$ vagy M$ eredeti adat változat- 
lanul marad. Ha nem, akkor a rekordba a megfelelő LL$ vagy MM$ új értéket kell fel- 
vinni. A program az így módosított rekordot felírja az állományba, az RL címre. Ezután 
megfelelő U$ üzenetet ad: 

5319 : GOSÚUE 719 :REM: --2 HDORTBEKERES 

5329 IF LL£-"£" AND MM$z"$4" THEH GOTŰ 5399 

5239 : US$Z"MÓDOSIÍTYA" 

szag : GOSUB E€fg18 :REM: --2 FELIRAS 

2993 HRETURH 

A módosítást nem hajtja végre, vagyis a rekordot nem írja vissza az állományba, ha mind- 
két módosító adat, az LL$ és az MM$ is csillagot tartalmaz. A rekordot felvivő szubrutin 
az RL és RH rekordcímre, ennek 1. bájtjára pozicionál, majd felírja a T$ állapotjelzőt, 
az N$ nevet, az L$ lakástelefontés az M$ munkahelyi telefont, egymástól az S$ szepa- 
rátorjellel elválasztva: 


6319 PRINTH13. "P"LHEE(ZICHRETFELICHESCEKHICHES$C1) 
6azB GOSUB 1919 :REM: —-? HIERYIZSGALRT 

6938 PRIMTHE.TESS5£:M$:.S$35L$:5$5M§ 

6649 GOSUE 1818 :REM: —-2 HIERYIZSGALAT 

6958 FEIHT 

EBÉB PRINT TRECIRa; "a kekek S GIJ$;" Kik om" 

£979 TH-189g: GOSIJB 9818 :REM: —-—-2 VHERKOZTATAS 
69939 RETURH 


Mind a pozicionálás, mind az írás után hibavizsgálatot hajt végre, és csak akkor megy to- 
vább, ha nem következett be hiba. 

A sikeres műveletvégzésről leadja a művelet során beállított U$ üzenetet, amelynek el- 
olvasására TH hosszúságú időt hagy. 

Az adatbekérésre beszúrás vagy módosítás esetén kerül sor. Először a lakás LL$ telefon- 
számát kéri be: 


7818 FRINT 

rTózg FPRIMT "d7B LAKASZ "LE" o: 4"; 
7038 IMPUT "ENMHELL£ 

70483 : IF LEM(ÁLL$257 THEM GOTO 7B29 
7959 : IF LL$z"4" THEN GOTÓ 7118 


7068 : IF LL$(5L$ THEN L$-LL$ ús 


Ehhez megjeleníti a rekordban tárolt L$ telefonszámot, illetve üres rekord esetén a pikk 
jelet. Ha csillagot adunk meg, akkor ezt az eredeti L$ értéket hagyja meg a rekordban. 
Ha nem, akkor kicseréli az LL$ értékre. 

Ugyanígy jár el az M$ eredeti, illetve MM$ módosított munkahelyi telefonnal is: 


7118 FRIMHT 

7128 FRIHT "478 MUNK Az S;M$EGT : kk; 
7139 IHPUT "KIIHN"; Má: 

7148 : IF LEN(MM$9-12 THEM GOTÓ 7128 
7159 : IF MM£áz"4" THEM GOTÓ 739939 
7168 : IF HMHM$(Z-M£ THEH M$szMMi 

77993 RETIURH 


Mindkét esetben egyszerű adatellenőrzést hajt végre, a megengedettnél hosszabb adatot 
nem fogadja el, hanem újra kéri. 

A rekord beolvasása hasonló a korábbi programjainkban megismert olvasó szubrutinok- 
hoz, csak itt a szubrutint mindig a kereső eljárásból hívjuk. Az RL, RH rekordcímről 
olvas, az RC bájtpozíciójáról. 

RC-1esetén csak a T$ állapotjelzőt, egyébként a K$ nevet, az L$ lakástelefont és az 
M$ munkahelyi telefont olvassa be: 


8918 PRIMHTHI13. "P"CHR$C(2ICHRE(RLICHR$IRHICHE$(RT/ 
esgzB G0OSUE 1819 :REM: --5 HIBRZIZSGALRT 

2039 IF RC-i THEM GOTO 8218 

alig : INMFUTHZ K$.L$E.M$ 

elza : GOZUB 1818 :REM: --2 HIBR/IZSGALHAT 

61329 GOTO 59339 

öz198 : IMHPUTH2:T$ 

355353 RETURN 


Mind a pozicionálás, mind az olvasás után hibavizsgálatot hajt végre, és csak sikeres mű- 
velet esetén megy tovább. 

A várakoztató rutin sem új, már láttunk ilyet. A TIME gépi órát kérdezi le először egy 
TIT, majd ciklikusan egy T2 időpontban mindaddig, amíg a két időpont között eltelt idő 
el nem éri a megadott (TH hatvanad másodpercnyi várakozási) időtartamot: 


59818 TizTI 

5829 TZ-ETI 

3498 : IF T2-TI£ZTH THEM GOTO SsAZB 
932353 RETURH 


Ha a programot begépeltük, mentsük ki lemezünkre TELEFONKONYV néven. 


1 REM: TELEFONKONMYV 

2 REMT Ő —6—— ne tree 

181 REM: 

182 REM: ————— hehe e e ee em há hár ma eza a ig tata a tree me a im mm pr MEGMYITAS 
119 S£zCHR$É(137 

128 FEIHT "77 
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999 
1968ü 
1981 
1882 
1816 
192 
195A 


1 


Ae 
st 


£9 Hü fu 
Arőktékeástőseéten sre 


11 


Ha s ma a 
HF —i meka 


FOR Izsi TŐ 29 

: . PFRIHT TAB(1955 "TELEFOHKOMY SZ" 

MEXT I 

TH:5189: GOSUB 59818 :REM: ——-7 VARREOZTATAS 
ÜFEN 15.8,15 

ÜPEN 2.8. 25 "TELEFONTOREZS" 


REM: 
REM: 
LI0d 2 a JE zázttszá sseei mag latlagzsgg án áéssi age ast é ss ezzlaszásss sad arg zza geza se szóssstsszlga KARERNHTAKTAS 
piát elv b 

PRIHT:FRIMHT "44ő HEVzs o 0GKAMIBI" ; 

IMHFUT H£ 

: . IF LEH(M£5525 THEM GOTO 219 

: IF Ház" THEM GOTO 5918 

SÜZIJE 2819 :REM: —-5 LEKEPEZES 

: IF RLXI1 THEH GŐTŐ 219 

: IF RL7126 THEH GOTO 218 

GOSUB 3818 :REM: --2 KERESES 

TF TALALT THEM G0SIBE 3918 :KEM: 
: IF HOT TALALT THEM GOSLB 4918 :REM: 
GOTD -218 —ez MÓDOZITAS 
REM: sé 9 FELVITTE 
RE : 
5 d EGG zlos lsz sztsztázttsz szszíztssatsa aszt tsztszt a teszel sze las ha kegsm ales kelsz lsau ezésetssáze ZARAS 
CLOSE 2 
LOSE 12 
FRIMNT "4" 


FOK Is1 TO 20 
PRINT TABCIR:; "ZISZUMTLATASRHARI" 


RED: szesszszesssesmszsmszmmeiszeensmeemimeuzzeiuzmmsze HIERVIZSGEALBEBT 
IHPUTHIS:.H. HET. E 
IF H(zü THEH GOTO 183939 
:  FRIHT 
PRKIHT " REKORD: "EL 
FERIMT 
FERIMT " HIER : eng "Há" om 
GGÜSÉ 
ELSE. AZ 
tiz" LERLLITVH! 
FR.IHT 
PRIHT TREZ1855" 4 $eek ".IJ$." kik Om" 
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1199 
1995 
zAaGa 
2881 
2002 
2618 
zAgza 
2838 
z2gaa 
3908 
3811 
3882 

3418 
3824 
gaza 
311 
3129 
3138 
3148 
3158 
3193 
az18 
32399 
aal 
a3379 
34198 
34dati 
saga 
3497 
aalg 
zagg 
3319 
39289 
3933 
4 BAL 
41 
438 
4418 
gaza 
JAZH 
4aa4n 
JAZA 
4AE0 
487A 
4088 
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: STOF 
RETIURH 


RED: megmsesszetáenmiemetezzet emez tezámesz en eszzzuzezzegszsiit] ÉKEPEZEÉS 
E$zLEFT$-(H$. 1: 

PL-(ASC(B$9-6594541 

R.H-O 

FETILJRH 


RÉM szszzszszszzzszsszeézszszzzeszszeommesrzszssskEekESES 
MEGTELT-B 
TALALT Hi 
Sz z3 
éjlé; Izi1 TŰ 5 
RCs1: GOSUE 8818 :REM: --3 OLVASAS 
IF T$-"-" THEM GOTO 3218 
IF T$z"a" THEH GOTÓ S21k 
IF TÉEzS4" THEH GűTŰ 2418 
GÜTÜ SZ18 
: IF SzsA THEN SszZ-5EL 
G0TÓ 35108 
: o: IF Sz2z-8 THEN SZ5RL 
GOTO Z31£ 
[0 :  RCsz: GOSLE 8818 :REM: --5 OLYHER! 
IF H$-CK$ THEM GOTM 3518 
ű szzRel: TALALTZÉSZEZzBi 
GÜTO 3a1k 
:  RL5ELt1 
HEAT I 
ELSSZ 
MEGTELTs-(szsfi 
RETURH 


ez 7 


RÉM: szsszseézszmemzmemmimmmzmmszzásáeiszáseesziT PFELYITEL 
FERIHT:PERIHT:PRIMT 

FRIMHT "4-8 HIHCS HrILYAEMHTHETYHI!" 

PRIHT 

PEIMHT " d6N FELVIHETŐ? sI/Mz o 0 4"; 

IMFUT "ENIN" 4 

: IF KAL "HM" THEM GÜTŰ 49399 

: IF V£€57"1" THEM GOTÜ 40483 

IF MEGTELT THEH GOTM 4419 


41aa 
4181 
4182 
4114 
4128 


4150 


4148 
4218 
4220 
4299 
4409 
4481 
4402 
4418 
4428 
4438 
4446 
4458 
4468 
4478 
4488 
4498 
4999 
5998 
5981 
5932 
5918 
5328 
5A39 
5348 
5119 
5128 
5138 
5149 
5158 
5218 
szz8 
5238 
5246 
SZ5A 
5257 
5258 
5259 
SZER 
5261 
5262 
5263 


T$z " ÉS vi " 

Láz "1 [aj " 

Ház" 

GOSUB 7B108 :REMz-z5 ADATBEKERES 
U$z"FELYIVE" 

:  GOSUB 6818 :REMz-2 FELIRAS 
GOTO 4959 


REM : 
REM: 


REM: —— erve e ee ee emma MEGTELT 
:  FRIMT:PRIHT:PRINT 

PRIHT TABKIZI;"a Mm" 

PRIHT " A TELEFONKONYY d ";B$; 

PRIMT " mM BETUS OLDALA" 

PRINT TABCI7O;"á Mm" 


U$z"MEGTELT" 
PRIHT TAET19a:5"d tk SGŰU$." krx om" 

: . THszAp: GOSUB SHIBD :REM: —--5 vVARRKOZTATHE 

RETURH 

REM: 

REM: 

RÉM" csszeszszsszsessssezmmimmzszszezem seien ák aes MOŰDOSÍTRS 

FRIHT 

FRIHT "4-8 LAKAZ: "5L£ 

PR.IHT 

PRIHT "€-M MUHKA: "ME 

FRIMHT:PRIHT:FRINT 

PRINT "348 VALTŐZRBS YAH? s[/Hz o 0 k"; 

IMPUT "NINI": 78 

: IF Váéz"H" THEM GOTŰ 5999 

eg WZ 


IF 9§-42"1" THEN GOT 3178 
FRIMHT 
FRIHT "46 TÜRLEHDO? zI/Hz o 0 K"; 


IMHFUJT "S KINMI":7$ 
: IF Váz"H" THEM GOTN 53314 
IF /7$£722"I" THEH CGOTÓ SzzH 


Tez"-" 
Hszt" 
L$éz"a" 
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szrá 
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a340 
933841 
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EE FGGEET 
1 FRIMT SGtem HLIHE Asz "GET: ok; 


i$:" TÖRÖLYE" 
GÜSJE 6918 :KREM: --: FELIRRS 
GCÖTŐ 5259 
HENM: 
HEH: 
REH: ——————— even essen ALTÜŰZTHTH 
GOSB THAI :REM: ——5 HURTBEKERES 
IF LL£z"k" AMI MRH4$-"4k" THEH O GÜTŐ 259979 
SZ" MOÓNIZITVH" 
GES E 6814 KEMT t szz FELTEHS 
RETLIRH 
REN: 
KEN: 
Led elt ju KS szszászs zzz ász egz ezett ke: zzizzzfFfELIRf§5 
BETMITAEZ e S ELÉ HÉÉ es CHP Cela HEG EHOCHR$C1 3 
CGÜSLIE 1818 :RER: —-: HIERVIZSERLHT 
FEIHTHE. TE. Ss$. HE. ZE LE. SE. ME 
CÖSLIE 1814 :KRKEM: --s HIERVIZSSOALHT 
FKIMHT 
FRIMT TAB-flLlRB2 "9 tik "GIIE." kk Mr 
THsiGg: GÜZJE 9014 (REI: --S VAEREMNZTHTHZ 
RETLIRH 
REM: 
REI: 
FEÍTŰ S Sötét sz sz és e Em tt Éz Éz Eg Et Sza Ea céda sát ÉR E SS Sa Ia s E S em lta AOSRTEEBKEFRE: 
FEIMHT 
FEZHT "ae LHKHSz "LELT : KG 
THEFT SKÉNT LL 
: IF LEMELLEsőr THEN GÖTÜ,; réza 
TB ELET HEH SOTET ÉL 
IF LL$7--L$ THEH L§5LL$ 


ós 


THELIT S KARNT : MTE 

: . LF LEHÉMI$251z2 THEN GOTÓ viz 
TE Mtázk" THEH GÜTO -593399 
IF HME-ZSMHá THEH M£$-HMG 


3 RETLIRH 
3 BEN: 


REM: 
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9. GOSB 1ELH KEN szé ATLBHSIZSGALET 


IF RÜz1l THEH GÜüTŐ zik 
IHELTHZ.K$.L$.H8 
GÜSE 1918 :KEM: ——- HIERVIAZZGALAT 


JA 


ÍTÓ Sans 
IHFUTHZ.T$ 
RETILRH 
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PEM: mt ZTZZEZT TT TZZTZzIZZuzmimzzzzzszz VHERKOZTÁTHE 


: IF T2-TIt-TH THEM. GŰTÖ Szt 
RETLEH 
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Mielőtt elindítanánk a programot, hozzuk létre a "TELEFONTORZS" állományt. Tölt- 
sük bea RELGENERALAS 9 sadkbbákl és indítsuk el: 


A ALLOMANY HEVE -? TELEFONTOFZS 
4 REKORD HOSSZA 77? 48 

HM REKORDÜK SZAMA -7 131 

11 VEGJEL 2? n 


FGTÁL KN ASLKAKTÉLÓ 1 ÁHÉLEROLTE VEL ÉB 
LETREHOZWA 
Ügyeljünk arra, hogy az adatok hibátlanok legyenek, különben a karbantartás nem fog 
működni. 

Megjegyezzük, hogy azért határoztuk meg 131 rekordban az állomány méretét, hogy a 
létrehozó program a végjelet ne az adataink területére írja. 

Most már betölthetjük a TELEFONKONYV programot, és elindíthatjuk. Vigyünk fel 
néhány rekordot. Ezek, mivel az állomány üres, beszúrásként fognak megjelenni. Pél- 
dául: 


14 NEYVsz? EALSKAI 


mi MIHCS MYILYAHTARTYVHA! 
14 FELYIHETŐ? 51I/WNs7 I 
41 MEV:? BACSKRI 


u MIHCS NYILYANMTARTYA! 
14 FELYIHETO? :51/N5s7 I 
H LAKASS 8 (7 777-E888 
ii MUHKFIa $ :? 999-DBB 
HEZY NM NVB MIHEZ ZNI 165 


Ha már néhány rekordunk nyilván van tartva, kipróbálhatunk egy lekérdezést. Például: 
14 NEVs7 CSÜMGRHADI 

a LAKAZ: 666-5s8 

5 MUNKA: 777-9899/355 


3 VALTOZAS VAN? sI/Mz? H 
Illetve egy módosítást: 

id NEvV5?7 BIHARI 

ma LAKAS: - 

mi MIJHKA: Z2Z22-444 


id VALTOZAS VHMH7 51I/MHsr? I 
14 TÜRLENDD7 z1]/Hs? H 


13 NEVsz7 FIHAKRI 
a LAKAS: — 
Mi MUNKA: 222-444 


1 VALTOZRS VAM? s5[/M5? I 
4 TÖRLEMDŐ? z[/Ms? MH 
LAKASSs — :7? 111-533 
MUNKAz 22á-rdád :7 
NEZET AMG (NANE A EZI GHEX E AN 


Majd töltsük fel egy betű területét úgy, hogy az teljesen megteljen. Például: 


14 MEVs7 ALFÖLDI VI 


aa wa 


a NINCS NYILYANTARTVH! 
14 FELYIHETO? 5I/Ns7 I 


A TELEFOMKONY "7 BETIJS OLDALA 
NEZZ JAH SON d Hu ME Z ZA 


Töröljünk innen egy rekordot. Például: 
Ezután újra kíséreljük meg annak a rekordnak a felvitelét, amelynek beszúrása a túlcsor- 
dulási terület telítettsége miatt sikertelen volt: 
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MEV5:? ALFÖLDI III 
LAKAS: 111-2Z22 
MUNKR: 333-444 


VALTOZAS VAN? s1/N5? I 
TÖFRLEMDDJ? sI/Ms? I 

NEZZ JN ENID MAI E Z 778 
NEvVz?7 ALFOLDI VI 


NINCS NYILYANTARTYA! 
FELYIHETO? 5I/Ns?7 I 
LAKASS § :7 111-222 
MUNKAZ $ :7 333-444 

KEZZ MAZ ANYA AI EZ ZT 


A felvitel most már sikerülni fog. 
A relatív állományt is megnézhetjük. Ehhez állítsuk le a programot NEV-"3" válasszal, 
majd töltsük be a RELOLVASAS-t, és indítsuk el a "TELEFONTORZS" állományra, 
az adatokat mindig a 3. bájtról olvasva: 


FELHRETSZ ALLIJHHEE NILS H 


14 ALLOMAMYs:? TELEFONTORZS 


14 BAJTFPOZICIO57 3 
TÁMÁR ÉSz fee et págnpapapeapatjtáp 


b ERRRL KASE a ALFOLDI I 

2 : $ ALFOLDI II 

3 : $ : ALFOLDI VI 

4 : k ALFOLDI IV 

5 $ : ALFOLDI 9 

6 : $ BARRMYAI 

7 : 4 : BACSKHRI 

B : $ : BIHARI 

9 : mr : 

18 : tr : 

11 ! 4 : CSONMGRADI 

12 , nm : 

13 : 9 : 
szmzakklezaezzszznentttoszszsztegezazttáteszzzzeanéresttnal rre rznerzadkosásssalkoraeeaantzuleseeohodha 


14 MEHET sI/Ms? H 
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Használhatjuk erre a célra a bájtonként olvasó RELELLENORZES-t is, de az lassabb 
lesz. Igaz viszont, hogy a hibásan felírt adatokat is le tudja olvasni. Ezért ha a TELEFON- 
KONYV program szemmel láthatólag hibátlanul lefutott, inkább az előbbi, ha pedig meg- 
szakadt vagy más hibajelenséget észleltünk, akkor az utóbbi kiíróprogramot használjuk. 


FIGYELEM! 

A példában fiktív neveket és telefonszámokat használtunk. Esetleges egybeesésük valamilyen létező 
névvel vagy telefonszámmal pusztán a véletlen műve. Abban a valószínűtlen esetben, ha ez mégis be- 
következne, az olvasók szíves elnézését kérjük. 


Megjegyezzük, hogy a TELEFONTORZS nem helyettesíti a zsebnoteszünket. Ha egy 
adott személy telefonszámát keressük, előbb be kell kapcsolnunk a COMMODOREtt, 
a lemezegységet, a tévét; meg kell keresnünk a lemezünket, be kell töltenünk róla a 
programot, el kell indítanunk; majd csak ezután kérdezhetjük le a szóban forgó személy 
rekordját. Ez néhány percet vesz igénybe, míg ugyanezt a műveletet a zsebnotesz segít- 
ségével egy nagyságrenddel rövidebb idő alatt elvégezhetjük. 

Mire jó akkor ez a nyilvántartás? Nos, elsősorban , zsebnotesz" készítésére, ha van olyan 
programunk, amely az állományt ki tudja listázni. 

Mivel a nyilvántartás könnyen karbantartható, gyorsan és gyakran állíthatunk elő napra- 
kész listát róla, ami szinte tetszés szerinti példányszámban sokszorosítható. Ezt ugyan 
nem célszerű zsebben hordani, de például munkahelyi használatra nagyon megteszi. 

Itt elsősorban nem is a házi telefonkönyvre gondolunk, hanem a hasonló szerkezetű 
egyéb nyilvántartásokra, mint amilyenek például a vevőkről, szállítókról, bérlőkről, ügy- 
felekről stb. készíthetők. 

A gépi nyilvántartás igazi előnyét akkor látjuk, ha az állományból válogatni is tudunk. 
Ez az, amit a gép a kézi válogatásnál nagyságrendekkel rövidebb idő alatt és pontosabban 
végez el. 

A leképezési eljárások hátránya ugyanaz, mint a zsebnoteszé: a nevek nem egyenletesen 
oszlanak el, így egyes lapok betelhetnek, másokon viszont még bőven van hely. A leg- 
egyszerűbben azzal védekezhetnénk ellene, ha olyan nagy noteszlapokat választanánk, 
hogy normális felhasználás esetén a leggyakoribb betűk lapjai se telhessenek be. Ez a 
megoldás azonban még a zsebnoteszeknél sem gazdaságos, nemhogy a COMMODORE- 
nál, ahol a lemez tárolókapacitása olyan kicsi (legfeljebb 167132 bájt), hogy igencsak 
takarékoskodnunk kell a hellyel. 

A noteszgyártók e problémát úgy oldották meg, hogy a különböző betűk számára kü- 
lönböző méretű helyet tartanak fenn. (Egyes betűknek egy vagy több lap, más betűknek 
csak fél vagy negyed lap jut.) 

A számítógépes feldolgozásban ez azt jelenti, hogy a lapok mérete nem egyforma, azaz az 
egyes betűknek különböző számú rekordhelyet tartunk fenn. Ilyenkor, ha például egy 
X(26) tömbben tároljuk az egyes betűkhöz tartozó rekordok számát, az N$ név elsőd- 
leges C címe a: 

11918 Csi 

11915 REDP———— ese e e e e te mg egét pen pee ma sam me tag ee mer mee [/ I Ő. KERESESE 
11929 FOR I:-65 TO 58 

11938 : IF ASC(MN$izI THEN 11999 

11049 : : CsCtrxrI-64I 
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11958 HEXT I 

11 ÖÖ EN el ásépáetsettls ót szattlsze zés —-—-— ——HA HEM TALALTA 
11969 Cs 

11999 RETURH 


leképező eljárással kapható meg. Alkalmasan megválasztott méretű lapok esetén a prog- 
ram a gyakorlatban is jól használható lesz. 

Vannak azonban más lehetőségek is. Ezek közül kettőt megemlítünk az alábbiakban. 
Részletes tárgyalásuktól eltekintünk, mert az egyiket már részben ismerjük, a másik pedig 
jelentősen túlmutat a relatív állományok kezelésének alapismeretein. 


RELATÍV ÁLLOMÁNY Használhatjuk a random állományoknál már megismert index- 
INDEXTÁBLÁVAL táblát, amelyben a rekord azonosítóját és sorszámát tároljuk 
(43. ábra). 


Indextabla Állomány 


[5 


BARANYAI 


CSONGRADI b33 


43. ábra. Relatív állomány indextáblával 


Felvitelkor a rekordot érkezési sorrendben az állomány első szabad (törölt) helyére te- 
hetjük, majd címét bejegyezzük a táblába. 

A már tárolt rekordot úgy érhetjük el, hogy megkeressük az indextáblában az azonosí- 
tóját, és megkapjuk onnan a címét. Például TN$(N) nevekből és TC(N) címekből álló 
indextábla esetén egy N$ név C címe (rekordsorszáma) a: 


11095. REH-——— hee hmmm meze mene éEV KERESESE 
11919 FOR Izsi TON 

11029 : IF HESTM$(I) THEN GOTO 11858 

11939 MEXT I 


11835 REM—-——— neee nene menneezzeneőHA HEM TALALTA 
11949 I5ő 
11945 REM-—-————— nt eses eme mnn -———-HA MEGTALALTA 


11958 C-TC(rI) 
11999 KETURH 
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eljárással határozható meg. A rekord a C címről beolvasható, illetve C-O, ha a rekord nem 
szerepel az állományban. (Kihasználtuk, hogy TC(0)-0O.) 

Ha az indextábla rendezetlen, kezelése egyszerűbb, de lassú benne a keresés, míg a rende- 
zett indextáblában a gyors keresés ára a körülményesebb kezelés, hiszen a rendezettséget 
a beszúrásokkal nem ronthatjuk el. 

A módszer előnye a nevek eloszlásától független, gazdaságos lemezkihasználás; az állo- 
mányban nincsenek , holt" területek. Ezzel szemben viszont több az indextábla kezelé- 
sére fordítandó idő és tárhely. 

Használhatunk két indextáblát is. Az egyikben név, a másikban telefonszám szerint tart- 
juk nyilván a rekordok címét (44. ábra). 


Aah T EZ 


BARANYAI 


44. ábra. Relatív állomány kettős indextáblával 


Ilyenkor egy telefontudakozó szerepét betöltő program is írható, amely meg tudja adni, 
hogy valamely telefonszám kinek vagy kiknek a száma. 

Minthogy egy telefonszám több személyhez is tartozhat, egy-egy bejegyzéshez több cí- 
met is tárolnunk kell. (Itt újra felmerül a kérdés, hogy mennyi helyet szánjunk erre.) 
Sőt még az is elképzelhető, hogy egy személynek több telefonszáma is van. 

A telefonszám szerinti indextábla tartalmazhatja közvetlenül a rekordok címét is. Ez 
esetben a keresett személy nevét akkor tudhatjuk meg, ha az állományban tárolt adatok 
között szerepel. Ha ez az indextábla nem a rekordra mutat, hanem a név szerinti index- 
tábla megfelelő bejegyzésére — mint az ábrán is látható, — akkor a kikeresett telefon- 
szám bejegyzése alapján megkapjuk a nevet a név szerinti indextáblából, majd az onnan 
kivett rekordcím alapján, ha szükséges, hozzáférhetünk az állományban tárolt adatok- 
hoz is. Például TT$(N) telefonszámokból TP(N,3) mutatókból, TN$(N) nevekből, TC(N) 
címekből álló indextáblák esetén az N$ névhez tartozó cím a már ismertetettt algorit- 
mussal határozható meg, míg a T$ telefonszámhoz tartozó N$(3) nevek és C(3) címek az: 


119853. REMA—A ee e teát me éet ési mir sag te eme me tá én mentem TEL EFONSZAM KERESESE 
11918 FOR Isi TŰ N 

11828 : IF TÉ$zsTT$(I5 THEM GOTO 11118 

11638 MEXT I 

11848 Iz 

HILL AS RÉT Tesz mesék SÉGÉT ÉGRE KÉS ET ss TT ES NEV BEGOELESR 
11118 FOR J5s1 TŰ 5 

11129 : CC (JIsTŰ (TPEI.JJ2 
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11139 : M$(JOÖIZTN$LTFKI,J.4 
11149 NEXT J 
11999 RETURH 


eljárással állíthatók elő. A tömbök feltöltetlen nulladik elemeit itt is kihasználva, C(J)-0O 
és N$(J)-" " értékeket kapunk az állományban nem szereplő rekordok, illetve PT(I,J)-O 
esetén. Egyébként a rekordok a C(J) címekről olvashatók be, a nevek pedig az N$(J) 
tömbben találhatók. 

Ilyen szerkezetet akkor választunk, ha gyakran van szükség keresésre, viszont ehhez 
képest ritkán módosul az állomány. Vegyük észre, hogy bármilyen változás végrehajtása 
igen bonyolult, hiszen a két indextábla összhangját állandóan fenn kell tartanunk. Ehhez 
járul még az is, hogy a gyakori keresés rendezett indextáblák kezelését teszi indokolttá. 
Ezzel még korántsem merültek ki a táblák lehetőségei. A bemutatottnál lényegesen haté- 
konyabbak is használhatók, mint ez a következő példában is látható. 


RELATÍV ÁLLOMÁNY Már eddig is láthattuk, hogy a keresésben milyen szerepe van 
LISTASZERKEZETTEL a rendezettségnek. A listaszerkezetek lehetővé teszik, hogy a 
rekordokat fizikai elhelyezkedésüktől függetlenül meghatá- 
rozott logikai sorrendbe láncoljuk össze. 

Ehhez nem kell más, mint hogy minden rekordban legyen egy mutató (pointer), amely 
az őt követő rekord címét tartalmazza (45. ábra): 


Kezdő- f A 

cimek Allomany 
; KOZCENBEZTSN KE 
: 
; 
D 
E 
F 


45. ábra. Relatív állomány listaszerkezettel 


Ilyenkor a rekordok tetszőleges, akár érkezési sorrendben lehetnek az állományban. 
Egy-egy betűn belül minden rekord tartalmazza az őt követő rekord címét, vagy ha ilyen 
nincs, akkor nullát. Célszerű, hogy külön táblázatban (indextáblában) tároljuk az egyes 
betűk elsődleges címét, hogy ne kelljen keresni őket. 

E módszer előnye a tárolókapacitás gazdaságos kihasználása, amely független a nevek el- 
oszlásától, és kezelésének egyszerűsége. 
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Ha például egy új rekordot kell beszúrnunk, mondjuk BEKESI néven, akkor ezt tárol- 
hatjuk az első szabad helyen, mondjuk a 28-as címen. (Ehhez a címhez az állományban 
való kereséssel juthatunk, vagy tárolhatjuk az indextábla, 0. elemében — ekkor nem 
kell keresnünk, de változás esetén gondoskodnunk kell a megfelelő módosításról.) Ezután 
végig kell menni a B betűsök listáján. Kiindulunk az indextáblából: az első B betűs a 4-es 
címen van. Ez BACSKAI. BEKESI névsor szerint ez után jön, tehát megnézzük a követ- 
kező nevet, amely a 2-es címen található. BARANYAI is megelőzi BEKESI-t, így tovább 
megyünk a 3-as címre. Az ott talált BIHARI már BEKESI után jön, tehát megtaláltuk 
BEKESI logikai helyét. Most már nincs más dolgunk, mint hogy ennek megfelelően át- 
állítsuk a mutatókat. BEKESI-nek BIHARI-ra kell mutatnia, tehát a rekordjában tárolt 
cím 3 lesz, míg BARANYAI-nak most már nem BIHARI-ra, hanem BEKESI-re kell 
mutatnia, így ebben a rekordban a 3-as címet át kell írni 28-ra. Ezután tárolható BIHARI 
rekordja a 28-as címen. (Végrehajtani könnyebb, mint elmondani.) 


Legyen például E(26) az elsődleges címeket tartalmazó indextábla; NI$ és PI a CI címre 
beolvasott, NO$ és PO az állományba CO címre írandó név, illetve mutató (pointer). 
Ekkor az N$-"BEKESI" beszúrása a C-28 címre a következő eljárással hajtható végre: 


11919 IZASC(N$)-64 
11029 IF E(I)5g THEN GOTO 11950 

11925 REM--——neneezzezzaze ELSO LISTRELEM BETOLTESE 
11939 : CI5ECID:GOSUB 21018 :REMs82 OLVASAS 

11940 IF N$XNI$ THEN GOTO 11118 

11945 REM-————————— enne BESZURAS A LISTA ELEJERE 
11959 :  NO$zN$:POZSECI) 

11969 : C0O5C:GOSUB 31019 :REMsz? IRAS 

11879 : EKI)mC 

11999 GOTO 11999 

11195 REM-————— sosenem enm nnzeKERESES A LISTABAN 
1119 HO$SMI$:POzPI:C0OZCI 

1129 IF PIsG THEN GOTO 11150 

1139 : CIsPI:GOSUB 21919 :REMns2 OLVASAS 

1140 IF N$ONI$ THEN GOTO 11118 

1145 REM-—— reven smemne BESZURAS A LISTABA 
1159 :  PPsFPO:POZC:GOSUB 31918 :REMssZ IRÁS 

11169 :  NO$eN$:POzPP 

11179 : " COZC:BG0SUB 31819 :REMszD IRAS 

11999 RETURN 


ahol a 21010-es szubrutin olvas egy rekordot a CI címről, a 31010-es pedig felírja a re- 
kordot a CO címre. : 

Az sem gond, ha nem a lista közepébe kell beszúrnia egy új elemet, hanem a lista elejére 
vagy a végére. Erről a 11030—11070, illetve a 11120 sor gondoskodik. Sőt, a 11020 sor 
még az üres listába is lehetővé teszi az első elem felvitelét. (Az egyszerűség kedvéért az 
adatok kezelését nem vettük figyelembe.) 

Hasonlóan egyszerű eljárások képezhetők a listaelemek módosítására, illetve törlésére is. 
A módszer hátránya, hogy egy betűn belül csak az első rekord érhető el az indextáblá- 
ban tárolt elsődleges címen közvetlenül, az összes többi rekord csak a listaszerkezet vé- 
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gigjárásával, közvetlen elérések sorozatos végrehajtásával férhető hozzá. (Mellesleg már 
a túlcsordulási területet használó programoknak is megvan ez a hátrányuk.) 

Előnyös viszont, hogy az állomány a lista mentén logikailag mindig rendezett. Megemlít- 
jük még, hogy ez a listaszerkezet a lehető legegyszerűbb. 

Képezhetők azonban úgynevezett cirkuláris listák is, amelyeknek utolsó listaeleme nem 
nulla címet (nullpointert) tartalmaz, hanem az első listaelemre mutat. Ilyenkor a lista 
többször is körbejárható. Van olyan lista, ahol a listaelemek nem a következő, hanem 
az előző elemre mutatnak. Ebben a listában hátulról előrefelé lehet haladni. Ha a lista- 
elem két mutatót tartalmaz, vagyis mind az előző, mind a következő elem címét tárol- 
juk benne, akkor kettős láncolású listát kapunk. Az ilyen listában tetszés szerint lehet 
előre vagy hátrafelé haladni. Az összetett listáknak olyan listaelemeik is lehetnek, ame- 
lyek maguk is listák. 

Mindezek a tulajdonságok mind a relatív, mind a random állományoknál kihasználhatók. 
Részletes tárgyalásuk azonban nem ide tartozik. (A listákról és kezelésükről az érdeklő- 
dők bővebben olvashatnak dr. Mérey András már korábban idézett, , ADATSZERKE- 
ZETEK" című könyvében.) 


A relatív szervezési mód alapja az, hogy ha egy állomány meg- 
határozott számú és azonos méretű rekordokból áll, akkor a 
ÖSSZEFOGLALÁSA rekordok sorszámmal egyértelműen azonosíthatók, mivel 
d zzz mindig pontosan kiszámítható, hogy az állomány által elfog- 
lalt területen hol helyezkedik el egy adott sorszámú rekord. 

A relatív állomány csak előre meghatározott méretű és megfelelően előkészített lemez- 
területen hozható létre. A már létező állomány azonban tetszés szerint bővíthető, az 
alábbi korlátokkal: a relatív állomány legfeljebb 254 bájt méretű rekordokból állhat, 
amelyek együttesen nem foglalhatnak el 167132 bájtnál nagyobb területet a lemezen. 
A rekordok száma azonban semmiképpen sem haladhatja meg a 65535-öt. 


A RELATÍV ÁLLOMÁNY 
KEZELÉSÉNEK 


A relatív állomány sajátosságai : 

— A rekordjai folyamatosan, egymás után helyezkednek el a kijelölt lemezterületen, 
tekintet nélkül a szektorhatárokra, illetve sávhatárokra. 

— A rekordjai a rekordsorszámmal azonosítva közvetlenül elérhetők. 

— A relatív állományból rekordot törölni nem lehet, azaz az állomány nem szűkít- 
hető, 

— Kezeléséhez az állomány számára kijelölt adatcsatornán kívül szükségünk van a 
parancscsatornára is. 


Az állománykezelő utasítások — az OPEN, POSITION, PRINT, INPUT, GET, CLOSE — 
másként működnek új állomány létrehozásakor, mint egy meglévő állomány használata 
során. 


— Az állomány létrehozásakor: 


OPEN: az állomány megnyitása létrehozásra 


OPEN 15 8,15 
OPEN állomány 8. csatorna, "állománynév L":CHR$(rekordméret) 
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Hatása: megnyitja a parancscsatornát, majd az állomány adatcsatornáját. A lemeztérkép 
alapján helyet keres az állománynak a lemezen. Bejegyzi a nevét a lemez tartalomjegy- 
zékébe. Például egy 60 karakteres rekordokból álló állomány létesítése esetén: 


OPEN 15.8,15 
OPEN 2,8,2,/"MINTA,L"-CHR$(60) 


A rekordméret bájtokban értendő, legfeljebb 254 lehet, és ebbe beszámítanak az adatok 
közötti esetleges szeparátorjelek is. 


POSITION: az állomány méretének meghatározása 
PRINTZ15,"P"CHR$(cC)CHR$(a) CHR$(f)YCHR$(1) 


Ahol c-adatcsatorna, a- alsó bájt, f-felső bájt. Az utóbbi két paraméter együttesen az ál- 
lomány méretét, az utolsó rekordjának sorszámát adja, az N-fx.256-a képlet szerint. 


Hatása:. kijelöli az N., az utolsó rekord helyét a lemezen. Például egy 1000 rekordból álló 
állomány esetén: 
PRINTZ15,"P"CHR$(2) CHR$(232)CHR$(3) CHR$(1) 


A POSITION parancsot mindig a parancscsatornára kell kiírni egy külön PRINT utasí- 
tással 


PRINT: a lemezterület előkészítése 
PRINT zállomány , végjel 


Hatása: a relatív állomány első N—1 rekordjának első bájtjába binárisan CHR$(255), 
azaz hexadecimális "FF" értéket tölt be, a rekord fennmaradó részébe pedig bináris 
nullák kerülnek. Az utolsó, N. rekordba viszont az első bájttól kezdődően a megadott 
végjel, majd egy CHR$(13) szeparátorjel kerül, és ezt követik a bináris nullák. Például: 


PRINT42, VEGE" 


Az állományazonosító a relatív állományé, a végjelet pedig tetszésünk szerint adhatjuk 
meg. A RETURN nem kerül a rekordba, ha a PRINT utasítást pontosvesszővel fejez- 
zük be. 


CLOSE: a létrehozott állomány lezárása 


CLOSE állomány 
CLOSE 15 


Hatása: felszabadítja a relatív állomány számára lefoglalt adatcsatornát, majd a parancs- 
csatornát. Például: 


CLOSE 2 
CLOSE 15 
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— A relatív állomány használatakor: 
OPEN: a már létező állomány megnyitása 


OPEN 15.8,15 
OPEN állomány ,8,csatorna, "állománynév" 


Hatása: lefoglalja a parancscsatornát. Megkeresi az adott nevű állományt a lemez tartalom- 
jegyzékében. Lefoglalja számára az adatcsatornát. Például: 


OPEN 15.8,15 
OPEN 2,8,2,/"MINTA" 


Ez a megnyitás csak már létrehozott relatív állományokra használható. 


POSITION: pozicionálás adott rekord adott bájtjára 
PRINT3É15,"P"CHR$(cCY)CHR$(a) CHR$(f)YCHR$(p) 


Ahol c-a relatív állomány adatcsatornája, a-alsó bájt, f-felső bájt, p-bájtpozíció. Az al- 
só bájt és a felső bájt együttesen a rekordsorszámot adja meg, az N-fx256tra képlet sze- 
rint. A bájtpozíció pedig a beolvasandó vagy felírandó adat karakterpoziciója a rekord- 
ban, 1 és rekordméret—1 között. 


Hatása: megkeresi a megadott rekord helyét a lemezen, és ha megtalálta, beáll a megadott 
bájtpozícióra. Például pozicionálás a 321. rekord 45. bájtjára: 


PRINT315,"P"CHR$(2) CHR$(65) CHR$( 1) CHR$(45) 


A relatív állomány bármely rekordjának kezelése, tehát minden írás és olvasás előtt kötele- 
ző pozicionálást végrehajtani. Ilyenkor a parancscsatornára kiadott PRINT utasításból 
egyetlen paraméter sem hagyható el, még akkor sem, ha az értéke nulla. 


INPUT: a pozicionálás ellenőrzése 
INPUTH15 hibakód hibaüzenet sáv, szektor 


Hatása: ha a pozicionáló utasítás a rekordot megtalálta, a hibakódban O, a hibaüzenet- 
ben pedig "OK" értéket kapunk. Ha a rekord azért nem volt megtalálható, mert nem 
szerepel az állományban, akkor a hibakódban 50, a hibaüzenetben pedig "RECORD 
NOT PRESENT" érték jelenik meg. (A sávnak és a szektornak itt nincs lényeges szerepe.) 
Például: 


INPUT:15 H,H$,SA SZ 


Az 1 és 19 közötti hibakódok nem jelentenek hibát, ugyanúgy tekintendők, mintha 0 
hibakódot kaptunk volna. Minden más hibakódérték azonban sikertelen lemezműveletre 
utal. (A hibaállapot más lemezművelet után is lekérdezhető.) 


PRINT: adatok írása a rekordba 
PRINTzftállomány, adatok 
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Hatása: ugyanúgy működik, mint a soros állományoknál, de az adatok felírása az előzőleg 
pozicionált rekordnak a pozicionálásban megadott bájtján kezdődik. Például: 


PRINTJ2,A$;S$;A90S$;A 


Ha olyan rekordra adunk ki PRINT utasítást, amely az állományban nem szerepel, azaz 
amelynek pozicionálására a hibakód 50 értéket vett fel, az állomány kiterjesztése auto- 
matikusan bekövetkezik. Ez azt jelenti, hogy az állomány utolsó rekordja és a megadott 
rekord közötti rekordok ugyanúgy feltöltődnek hexadecimális "FF" és "00" értékekkel, 
mint létrehozáskor. Ezután hajtódik végre a PRINT, amely ezután írja fel a megadott ada- 
tokat a rekordba. 


INPUT/GET: adatok/bájtok olvasása a rekordból 


INPUTsállomány, változók 
GETfállomány szöveges változók 


Hatásuk: ugyanúgy működnek, mint a soros állományoknál, de az adatok, illetve bájtok 
beolvasása az előzőleg pozicionált rekordnak a pozicionálásban megadott bájtján kezdő- 
dik. Például: 


INPUTH2,A$ Ap A 
vagy 


GET3J2,E$ 
CLOSE: a használt állomány lezárása 


CLOSE állomány 
CLOSE 15 


Hatása: felszabadítja az állomány számára lefoglalt adatcsatornát, majd a parancscsator- 
nát is. Például: 


CLOSE 2 
CLOSE 15 


A relatív állományok kezelése ennek megfelelően más és más stratégiát követ létrehozás- 
kor és a meglévő állomány használatakor. 


Létrehozás esetén: 


— OPEN : "Megnyitjuk az állományt létrehozásra, megadva az állomány nevét 
és a rekordméretet. 

— POSITION : Pozicionálunk az állomány utolsó rekordjára, meghatározva ezzel 
az állomány méretét. 

— PRINT :  Felírunk egy tetszőleges adatot (célszerűen végjelet) az állomány 
utolsó rekordjába. 

— CLOSE :  Lezárjuk az állományt. 


Megjegyeztük, hogy a relatív állomány méretét a létrehozáskor úgy célszerű meghatározni, 
hogy kiterjesztésére lehetőleg soha ne legyen szükség. 
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Allomány használata esetén: 


— OPEN : Megnyitjuk az állományt, csak a nevét megadva. 
— POSITION : A rekordsorszám és a bájtpozíció beállításával meghatározzuk, hogy 


a soron következő I/O művelet melyik rekord hányadik bájtpozíció- 
ján kezdődjék. 


— INPUT : A parancscsatornáról lekérdezzük a pozicionálás sikerességét. 

— INPUT : "Megfelelő pozicionálás után bármely rekord bármely bájtpozíciójáról 
olvashatunk le adatokat. 

— GET : Megfelelő pozicionálás után bármely rekord bármely bájtpozíciójáról 
olvashatunk le bájtokat. 

— PRINT : "Megfelelő pozicionálás után bármely rekord bármely bájtpozíciójára 


írhatunk fel adatokat, akkor is, ha ez az állomány területének (sikeres) 
kiterjesztésével jár. 
— CLOSE : A feldolgozás befejeztével lezárjuk az állományt. 


A relatív állomány a SCRATCH paranccsal törölhető, ugyanúgy mint bármelyik soros 
állomány vagy program. 

Minthogy rekordot fizikailag törölni a relatív állományból nem lehet, gondoskodnunk 
kell arról, hogy az állomány , élő" rekordjait meg tudjuk különböztetni a használaton 
kívüliektől. Ezért a törlendő rekordot vagy a létrehozáskor generált feltöltetlen rekorddal 
azonos tartalmú (úgynevezett üres) rekorddal írjuk felül, vagy a rekordban tárolt jelzővel 
(törlőjellel) határozzuk meg a rekord aktív vagy törölt állapotát. Az előbbi esetben a tö- 
rölt adatok megsemmisülnek, az utóbbiban (a rekordban) megmaradnak. 

A programozónak kell gondoskodnia annak számontartásáról, hogy melyik rekordnak 
mi a sorszáma, ha a rekordokban nem szerepel olyan adat, amely természetes rekord- 
sorszámként közvetlenül használható, vagy amelyből a rekordsorszám egyértelműen 
képezhető. Szintén a programozó dolga a természetes vagy a leképezés során keletkező 
szinonimák kezelése. 
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— egyértelmű 135 

— hézagmentes 135, 136, 137 

— közvetett 134 

— közvetlen 132, 134 

— random állományoknál — random leképezés 
— relatív állományoknál relatív leképezés 
leképezési eljárások 126 

leképezés tesztelése 129, 130 

lekérdezés 102 

lemez szervezése 11 

lemezterület 69 

listák 173 

— cirkuláris 173 

— kettős láncolású 173 

— összetett 173 

listaszerkezetek 171 

— kezelése 171, 172 

logikai változó 147 


másodlagos cím 139, 140, 141 
módosítás 101, 102, 154 
mutató — puffer 


NO BLOCK (nó blok) 30, 56 
NO CHANNEL (nó csenöl) 92, 112 


olvasási rekordból 78, 94, 96, 99, 100, 101, 121, 160, 176, 177 

OPEN (ópen) 26, 43, 55, 72, 77, 83, 98, 107, 119, 156, 173, 
175, 176, 177 

OVERFLOW IN RECORD (óverflou in rekord) 81, 85, 86, 
87,88, 96 

összetett listák 173 


P.5 POSITION 
parancscsatorna lekérdezése 19, 29, 35, 46, 56, 72, 73, 74, 79, 
175, 177 
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POINTER (pointer) mutató 

POSITION (pozisn) 7 pozicionálás 

pozicionálás 72, 78, 83, 94, 96, 108, 110, 111, 174, 175, 176, 
177 

— bájtra 96, 100, 121, 159, 160 

— rekordra 72, 78, 83, 94 

pozicionálási hibák 96 

PRINT (print) 

— parancscsatornára 29, 30, 31, 32, 45, 46, 55, 56, 57, 72, 
78, 92 

— pufferba 29, 56 

— rekordba 73, 84, 87, 111, 159, 175, 176, 177 

puffer 13, 26, 29, 31, 55, 56 

— feltöltése 29, 31, 56 

kijelölése 26, 555 

— megnyitása 26, 55 

— mutatója 46 

— mutatójának beállítása 46 

— olvasása 31,57 

pufferpozíció meghatározása 46 


R random állomány 12 


— karbantartása 22, 26 

— kezelése 21, 22,59 
indextáblával 14 

— lezárása 27, 45, 57 

— megnyitása 26, 43, 555 

— rekordjának 
beolvasása 58 
beszúrása 25 
elérése 12 
felírása 30 
felvitele14, 15,58 
módosítása 23 
olvasása 14, 15, 31, 45 

. törlése41,58 

random állományok 11 

— összefoglalása 55 

random leképezés 127, 132 

— tesztelése 130 

RECORD NOT PRESENT f(rekord not prezent) 73, 74, 81, 175 
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rekordbeolvasás szimulálása 150, 151 
rekordfelvitel szimulálása 151 
rekordpozíció 65, 66, 72, 78 
— kiszámítása 65, 66 
rekordsorszám 64 
— meghatározása 65, 66, 67 
relatív állomány 63 
— blokkjainak száma 65 
— bővítése 89 
— feldolgozása 77, 83, 175, 177 
— feltöltése 82 
— használata 175, 177 
— indextáblávai 169 
— karbantartása 104, 105, 106, 107, 112, 153, 154, 156, 160 
— kettős indextáblával 170 
— kezelése 101, 173 
— kiterjesztése 68, 73 
— lemezterülete 69 
— létrehozása 68, 70, 71, 72, 115, 173, 176 
— lezárása 74, 84, 99, 121, 156, 174, 176 
— listaszerkezettel 171 
— megnyitása 72, 77, 98, 107, 119, 156, 173, 175, 176, 177 
— mérete 64, 174 
— olvasása 94, 96, 111 
— rekordjainak 
hossza 64, 68, 72, 174 
írása 73, 82,84, 87, 95, 111, 159, 175, 176, 177 
keresése 146, 150 
olvasása 78, 94, 96, 97, 98, 99, 111, 121, 160, 176, 177 
sorszáma 64 
száma 64, 68 
. törlése 93 
— szimulálása 148 
— tesztelése 149 
— törlése 92 
— túlcsordulási területtel 143, 144 
relatív állományok 63 
relatív elérés 64 
relatív leképezés 127, 134, 137, 138, 140, 142, 145 
— tesztelése 129 
rendezési eljárás 51, 52 


SCRATCH (szkrecs) 92, 177 
STRING TOO LONG (sztring tú long) 96 
szimulálás 148, 150, 151 


— rekordírásé 150 
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— rekordolvasásé 150, 151 
— relatív állományé 148 
szinonimák 138, 139 

— kezelése 138 


T TIME (tájm) 35 

törlés 101, 102, 154 

túlcsordulási terület 140, 143, 145 
— alárendelt 141, 143 

— független 140, 143 


U üres rekord 68, 69, 80, 81 


vV VALIDATE (velidéit) 41, 58 
válogatás relatív állományban 118, 119, 123, 125 
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Tibor Bodor 


COMMODORE PROGRAMMING IN PRACTICE 


RANDOM AND RELATIVE FILES 


The Commodore-—64 has two different facilities for the direct access of data stored on 
disk. This volume has been written to present these file organization modes; it consists 
of two parts, discussing the random and the relative files respectively. 

The description of the file handling statements occupy altogether only two subchapters, 
one for the random, another for the relative files. The remaining parts of the book present 
different methods for the usage of these files; the file, record and data handling 
technigues, and the effects of direct access to the electronic data processing. 

The different data processing functions, such as generating, creating, updating, process- 
ing, testing of files, and the programming technologies for handling them are illustrated 
by several examples and executable programs, including detailed discussions of random 
files using index tables and relative files containing overflow area. 
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